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ABSTRACT 



The use of color in the organization and analysis of the output of multifactor sta- 
tistical simulations is investigated with the computer package SIMTBED (A Simulation 
Test Bed). Updating of this system to the current technology of color line printers is 
performed. It is shown how color can be used to code some factors in a multifactor 
simulation, compacting the output and enhancing analysis. An application to the anal- 
ysis of the lag one serial correlation of normal and non-normal time series using four 
estimators (moment, maximum likelihood, robust regression, and the Cressie estimator) 
is provided as a demonstration of the uses of SIMTBED in statistical simulations. These 
estimators are examined for robustness and asymptotic bias, as well as relative behavior 
with various sample sizes. It is shown that for some time series the robust estimators 
of serial correlation are not acceptable due to bias and other considerations. 
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THESIS DISCLAIMER 



The reader is cautioned that computer programs developed in this research may not 
have been exercised for all cases of interest. While every effort has been made, within 
the time available, to ensure that the programs are free of computational and logic er- 
rors, they cannot be considered validated. Any application of these programs without 
additional verification is at the risk of the user. 
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I. INTRODUCTION 



This thesis consists of two parts: the analysis and updating of an existing computer 
simulation package to include the use of color in output analysis, and an application 
using the simulation methods in the analysis of robust estimators of serial correlation for 
time series. The technology of computers, especially the personal computer (PC), and 
the ability of the academic (as well as the user) community to perform computer-assisted 
simulations is rapidly changing, and this work represents an effort to use more modern 
methods and equipment in computer simulations, such as color printers and the faster 
personal computers. This allows more compact output analysis of the results of multi- 
factor simulations, through the use of color to code some of the parameters of the sim- 
ulation experiment. Through the use of color, a direct graphic comparison of the 
behavior of different estimators in a statistical simulation can be made, enhancing the 
output analysis. 

The research community has provided several methods for assessing autocorrelation 
that warrant further research, and the application of this simulation package to some 
of these methods seems appropriate. Specifically, some autocorrelation estimators pur- 
ported to be robust are evaluated when applied to time series with various marginal 
distributions, including the Normal and other non-Normal distributions, and their be- 
havior is compared. These results should prove useful to any student or researcher in- 
terested in either performing statistical simulations, or the estimation of autocorrelation 
parameters, for example in the examination of oceanographic data, or positions of shells 
on successive firings of an artillery piece. Serial correlation is of interest in the study of 
learning phenomena, such as accuracy of a rifleman in subsequent shots at a target. It 
is also used to study the independence of the individual members of a sample, to support 
assumptions of independence. In these situations the estimator of serial correlation used 
may be important. 

The remaining chapters of this thesis discuss multi-factor statistical simulations, the 
FORTRAN simulation package SIMTBED (SIMulation Test BED) and its updating, 
and application to the estimation of serial correlation. With the pace of technology and 
research today, there is always a need for more effort to move existing systems into the 
current and future technology. As our abilities to conduct these types of experiments 
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improve, so will our understanding of the theoretical processes involved, and their ap- 
plication to the real world through research. 
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II. MULTI-FACTOR STATISTICAL SIMULATIONS 



In their text on simulation methodology, Lewis and Orav [Ref. 1, p. 1-2] describe a 
simulation as a controlled statistical sampling technique, and a controlled statistical ex- 
periment. This is to be contrasted with real-world statistical sampling, in which the 
statistician has no control over the population being sampled. 

A. PURPOSE. 

The purpose of a statistical simulation is therefore to assess some property of a 
statistical estimator of a parameter in an i.i.d. sample or in a random process (time se- 
ries). These simulations are generally applied to situations where the processes being 
considered have no good analytical form to study. When there are multiple estimators, 
simulation can facilitate choice among them, given some criteria by which a comparison 
can be made. 

B. EXAMPLES. 

Examples of statistical simulations include: 

• A study of the Student's t statistic applied to non-Normal random samples. Here, 
there is no good analytical result for the behavior of the statistic. A comparison 
can be made with the behavior of the t-statistic as applied to Normal samples. 

• A study of various trimmed means (say, 5%, 7%, 10%), and their behavior com- 
pared to the arithmetic mean, for different distributions and sample sizes. 

• A study of sampling, with replacement, from a generated population, and the study 
of the sampling distribution of a statistic (say, the median), for different distrib- 
utions. 

• Comparison of the Maximum Likelihood Estimator (MLE) with the Moment esti- 
mator for various statistics. 

• Large sample studies of the asymptotic behavior of some statistic (i.e., higher mo- 
ments, like skewness or kurtosis). 

• A study to analyze the variability of some statistic, when there is no good analytical 
result (such as the variance of the coefficient of variation) for different distrib- 
utions. 

C. CONSIDERATIONS. 

In all of the examples and applications of statistical simulations the following consider- 
ations are implied: 
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1. Factors. 

Several factors are involved in the simulation. These can be the different esti- 
mators under study, the type of distribution involved in the study, some parameter var- 
iation on the distribution, the sample sizes involved, or any combination of these. The 
simulation experiment is to be repeated for each of these factors, and the output must 
be analyzed in an organized manner to examine the effect of varying these factors. 

2. Replications. 

There is to be some repetition of the statistical simulation to assess variability 
information. Random processes are involved, and repetition is required to observe be- 
havior with any degree of assurance. Sometimes the amount of repetition required to 
gain an acceptable variability in the results is unknown at the start of the simulation. 

3. Resources. 

These experiments can be complex to conduct. Combined with the factors in- 
volved, a significant computing resource can be involved. A mainframe can provide 
computing power in terms of speed, but at a cost. Personal computers, while possessing 
much less speed, can accomplish similar tasks, with more time required, but the cost can 
be much less, especially considering the availability of the personal computer versus the 
mainframe. In any case, the user must often write some part of the routines that 
produce the simulation. This can include the driver routine, which generates the random 
process and calculates the values under study, or it could include the entire simulation, 
including the graphics and other output routines. The best approach is to have available 
some package which can take user driver routines and then aggregate the output from 
them into a compactly presented output, so the user can focus on the aspects of the 
simulation (i.e., the process and the results). This is the approach of SIMTBED. 

D. OUTPUT ANALYSIS. 

Consider the following example. We wish to study the behavior of four estimators 
of serial correlation (autocorrelation), specifically applying these estimators to samples 
from first order autoregressive processes whose marginal distribution is the standard 
Normal distribution, and with four other first order autoregressive processes with non- 
Normal marginal distributions. We wish to study, say, eight sample sizes, from 20 to 
5000, and we want to know how these estimators behave when the true values of the 
serial correlation take values of -0.9, 0.9, and 0.0. Since we know the correlations of the 
random samples we generate, we can compare these estimators to each other, and also 
to the known values of the correlation. The number of simulations required to provide 
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only one realization of our estimators for each consideration is clearly the product of the 
number of each of the factors, or 480. This would be an intractable process without 
some organized approach to perform some of these runs as a batch. Further, in order 
to assess the variability in these results w T e wish to repeat the entire overall simulation a 
number of times. Not only does this represent a significant computing requirement, but 
some type of compact organization of the output is required for analyses and compar- 
isons to be possible. 

1. Graphics. 

Graphical displays can portray a great deal of information clearly, quickly, and 
in a compact manner. We can use graphics and graphical symbols to combine the lo- 
cation and variation measures, like a boxplot, and we can plot related data close together 
for quick comparison. The repetitions performed to introduce stability (precision) into 
the simulation can be combined into the boxplot-type graph, with tables attached for 
reference. This represents only one w r ay to approach output analysis, and the exact 
methods used depend on the simulations being conducted. For example, if we are 
comparing an estimator's behavior under different distributions, we would like a graph- 
ical representation which depicts each distribution's results together, so differences will 
be apparent. This graphical approach, combining several of the factors of the simulation 
in one plot, is the approach taken to output analysis with SIMTBED. 

2. Regression and Asymptotic Behavior. 

There are many statistical estimators in the literature with claimed asymptotic 
behavior with respect to sample size. Indeed, Cramer proves that any central moment 
of a sample of any population is asymptotically normally distributed, and he gives the 
mean and variance as functions of n, the sample size [Ref. 2, p. 365]. If we are interested 
in demonstrating asymptotic performance (say, for different distributions), we would 
want the estimator plots arranged by sample size to show trends. Of interest might be 
the sample size at which the aymptotic normal behavior of our estimator is apparent, 
w r hich might allow all types of analysis possible for normally distributed data (confidence 
intervals, etc.). More likely, though, we are interested in the value of our estimator, 
suitably unbiased, which is approached as the sample size gets very large. In this situ- 
ation, regression can be applied. Lewis and Orav present the results of the geometric 
expansion for the mean and variance of central moment estimators (the delta method), 
and further states that these results also apply well to estimators that are not functions 
of central moments [Ref. 1, p. VI-35]. In equation form, these results are: 
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where a'Sj and b'Sj are constants, m is the sample size, and 6 is the value of the estimator. 
Notice in equation (2.1) that the fust term is the asymptotic value of the estimator 6 it- 
self. So, if we perform a regression using these equations and the appropriate powers 
of the sample size, we can attain a value and variance for the estimator as it behaves 
asymptotically. This regression is the type implemented in SIMTBED. With repetitions 
of our simulations we can observe the variability of the coefficients of the regression. 
Observe that more sample sizes in the simulation design allow an increased degree of 
regression, where by degree we mean the number of terms of equations (2.1) and (2.2) 
used, which typically have to be truncated to, say, four or six terms. 

E. HUMAN FACTORS AND INFORMATION CODING. 

When referring to information coding, we mean that the original information has 
been converted to a new form, and displayed symbolically, as discussed in the human 
factors industry [Ref. 3, p. 50]. In our output analysis, there are two forms of informa- 
tion coding. 

1. Graphics. 

The measures of location and spread for the statistical estimator have been 
converted to a graphical representation, the widely used boxplot. This allows rapid 
comparison of different runs (estimators, sample sizes, etc.) based on location and 
spread. Tables are also used, for detailed reference, if needed. 

2. Simulation Factors. 

In the update to SIMTBED as part of this thesis, the different estimators will 
have their identity coded by color, so that when plotted together, two estimators that 
otherwise have identical simulation factors (sample size, distribution, and parameters) 
will be distinguished by color for comparison. Further, as a consequence of the simu- 
lation processing, these estimator plots will also be coded by their position in the graph, 
which is not a good form of coding. Sanders and McCormick compare these coding 
dimensions (color and position) and others, and conclude that color is the best (in terms 
of correct responses), and position is the worst (configuration is the term used by these 
authors for position coding) [Ref. 3, p. 98]. Nonetheless, this makes it possible to use 
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these comparisons on any personal computer with a dot matrix printer, which 
SIMTBED uses for output, as well as the newer color dot matrix printers. This direct 
comparison of estimators in a simulation is an addition to the capabilities of SIMTBED. 

The stage is now set to discuss the statistical simulation package, SIMTBED, 
as updated by this thesis, its capabilities, limitations, and method of use. Before doing 
this we note that the philosophy on the design of the original SIMTBED was to use line 
printer graphics for portability. This goal can still be achieved if color is included in the 
output graphics and the widely available and cheap dot-matrix printers are used for 
SIMTBED output. 
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III. SIMTBED. 



This chapter discusses the package SIMTBED, in currently available versions, and 
the enhanced version created in this thesis (version 13). We discuss the SIMTBED ap- 
proach to statistical simulation, the output organization it uses, and the updating to the 
use of color as a SIMTBED enhancement. For a detailed description of the details re- 
quired to actually run SIMTBED, see Appendix A. Appendix A is designed to function 
as a user's guide for this version of SIMTBED. 

A. DESCRIPTION. 

SIMTBED is a collection of FORTRAN subroutines that perform the detailed 
output analysis for statistical simulations. The user writes a driver program that pro- 
vides the necessary parameters of the simulation, and calls the SIMTBED subroutine. 
The user also provides the routines that generate the random process and calculate the 
statistics of interest. SIMTBED performs a sectioning of the sample sizes the user 
specifies and determines the number of calls required to each generating routine to 
produce the desired result. It then prepares all the plots and output statistics from the 
data supplied by the generating routines. In this way, the user focuses on the process 
involved in his simulation, and on the output he receives, and is relieved from the or- 
ganization and generation of the output itself. This present version (13) of SIMTBED 
is designed to run on the IBM PC/AT family of personal computers, when compiled by 
any of the currently popular FORTRAN compilers. The update to older versions of 
SIMTBED that produced this version (13) includes the capability to produce combined 
plots of the user-supplied estimators, in color, and an increase in the number of estima- 
tors SIMTBED can process. The older versions could only process three estimators. 
The graphics used by SIMTBED, called line printer graphics, uses the dot matrix printer 
and its characters, in compressed-type mode, to produce the plots. 

B. HISTORY. 

SIMTBED originated with a mainframe version written by Lewis, Orav and Uribe 
in 1981. This was ported to and improved upon in a PC version in a Naval Postgraduate 
School Thesis by Hans-Walter Drueg [Ref. 4]. In this work, Drueg produced the first 
PC version of SIMTBED, with applications to statistics. His work was based on the 
regression methods of Lewis and Heidelberger [Ref. 5] and the graphical approach used 
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by Linnebur in the program RAGE [Ref. 6]. Since then, numerous updates have been 
incorporated by the Naval Postgraduate School simulation community, most notably 
by L. Uribe, and P. A. W. Lewis. Updates to SIMTBED include: 

• Addition of percentile and quantile plots for each estimator. 

• Computation of Mean Squared Error (MSE), when known values are input. 

• Bivariate histograms to show relationships between pairs of estimators with respect 
to sample size. 

• Super-replications to provide precision/variability information on all the 
SIMTBED statistics. 

• A restart capability for long simulations, allowing a simulation to be performed as 
a series of super-replications, with each series building on the ones before. 

• Most recently, the use of color printers to provide combined plots of estimators 
(the work of this thesis). 

• Even more recently, a mainframe version utilizing laser printer technology, with 
even more capability (restricted to mainframe use). 

Appendix D, the SIMTBED source listing, has comments at the beginning which 
also portray the historical development of the program. 

SIMTBED has been incorporated into the Advanced Statistical Package, a pub- 
lished software package from P. A. W. Lewis (as SMTBPC). The manual from that 
package has been used in courses in simulation at. the Naval Postgraduate School [Ref. 

n 

C. THE APPROACH OF SIMTBED. 

SIMTBED views each estimator (represented by a generating subroutine passed to 
SIMTBED with all other parameters) as a separate simulation run, and performs all the 
analysis on each estimator in turn (see Figure 1.). The capability added with this thesis 
consists of the color combined plots at the end of the SIMTBED processing. (Refer to 
Appendix B for a discussion of the programming aspects of color printing with 
SIMTBED.) If combined color-coded plots of up to five estimators are requested at the 
completion of the simulation experiment, the data needed from each estimator's simu- 
lation is kept until the end for preparation of the combined plots. Otherwise, each esti- 
mator is completely processed in sequence. Up to five estimators can be processed in 
one run of SIMTBED (each represented by a generating subroutine). This is an im- 
proved capability in that more estimators can be studied, and the results can be com- 
pared at the finish, graphically, in color. 
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Figure 1. 




SIMTBED Processing Flowchart 
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1. Sectioning to Conduct Simulations. 

a. Major parameters description. 

In addition to routine parameters (number of estimators, subroutine names, 
etc.), SIMTBED must have information on the sample sizes that are to be used for the 
estimators, i.e., the sample sizes for which the properties of the estimator are to be ex- 
amined. These are referred to as "sub-sample sizes," because the "sample size" refers to 
the global sample size from which each of the sub-samples is sectioned. We use "X" to 
represent this global sample size, and "NE(*)" to represent the sub-sample sizes, since 
they are passed in an array (from 1 to 8 sub-samples are possible). Further, a number 
of replications of each sub-sample size may be performed, in order to observe the vari- 
ability in the regression performed on the values of the estimators (see Chapter 2, Sec- 
tion D.2). This is deno'ed by "M". These are the three major parameters affecting the 
simulation. The global sample size X is a function of the available memory of the ma- 
chine being used. 

b. Performing a simulation by sectioning. 

Consider this example. Given a sample size, N T , of 5000, a replication value, 
M, of 20, and a sub-sample size, NE(1), of 20, SIMTBED will proceed as follows. The 
sample space for the 5000 values of data from which the estimators can be computed 
will be divided up into groups of size 20, so there will be (5000/20) = 250 evaluations 
of the estimator, each based on a separate, independent sample of size 20. This will be 
repeated M times, so there will be 5000 evaluations of the estimator, based on a sample 
of size 20. This is the way SIMTBED sections to produce the necessary number of 
evaluations based on the desired sample size. Machine memory storage must be avail- 
able for (X x M)'XE(l) variables in an array. 

This process is independent of the estimator subroutine. For example, if 
our estimator were the coefficient of variation of an exponential(z) distribution, 
SIMTBED would call that routine 250 separate times, and pass a new sample size of 20 
from which to compute the estimate of coefficient of variation. The data generator 
routine would generate the random variables and compute the coefficient of variation. 
This process would repeat for each of the other (as many as eight total) sub-sample sizes, 
and if requested, a regression would be performed on the means of each of the sub- 
sample realizations of the estimator. This regression process is replicated M times to 
estimate the variability of the regression coefficients. See Chapter 2, Section D.2, and 
Appendix A for more on the regression performed by SIMTBED. 
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2. Super-Replications. 

As each estimator is processed it turn, it is possible to perform the entire sec- 
tioning process for that estimator a specified number of times. These are referred to as 
super-replications, and allow the experimenter to evaluate variability and precision in- 
formation about all of the results presented for one iteration of the simulation process. 
For example, one replication will yield a single value of the asymptotic expected value 
of the estimator being simulated (from Equation 2.1). The number of replications 
specified in the simulation allow estimating the spread of these coefficients of the re- 
gression, but still only one value is obtained. To obtain more realizations of this ex- 
pected value, super-replications can be performed, and then tests for normality (i.e., 
quantile plots, etc.) can be performed for validity. These super-replications, being inde- 
pendent, should be normally distributed about the true estimator value, from the central 
limit theorem. SIMTBED performs these super-replications as specified by parameters 
when SIMTBED is called. All super-replications for one estimator are performed before 
the next estimator in the chain is processed. It is possible to obtain repeated output 
graphs for the first three of these super-replications, to check the simulation; thereafter, 
SIMTBED generates a summary table and optionally a normalized quantile plot (see 
section D). 

3. Combined Plots in Color. 

At the completion of simulation for all estimators, a plot of some of the infor- 
mation from each estimator in the chain that was processed can be generated. This 
amounts to plotting together some of the boxplots describing each estimator, with each 
a different color, aiding comparison of the behavior of the estimators relative to each 
other. While not a substitute for comparing tabulated values (such as mean squared 
errors, standard deviations, and means), this type of graphical comparison can provide 
meaningful information that could otherwise be hidden in the tabled values of the out- 
put. Analysis of the large volume of output produced in these types of simulations is 
thus aided by these types of graphical comparison, which can provide a wealth of infor- 
mation at a glance. 

4. Restart and Other File Operations. 

Due to the lack of good analytical form for the behavior of the estimators in 
these types of simulations, the amount of repetition (super-replications) required to get 
a specified degree of precision (with respect to asymptotic performance) or a low enough 
variance (say, in the mean value) may not be known until it is reached. Rather than 
keep repeating the simulation with larger and larger parameters, SIMTBED will use data 
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files to store the results of the super-replications, and subsequent super-replications can 
use the results from previous runs as though they had just been obtained. This allows 
the user to 'build up' his simulation until the values obtained have the needed precision, 
or until the required convergence/divergence or bias is seen. It may also be useful to 
have these results for processing by another package, or for record-keeping. SIMTBED 
can also perform this function with an output file. Refer to Appendix A for the actual 
use of these features. 

5. A Variance Reduction Technique. 

One popular technique that can be used to reduce the variability in the results 
of a statistical simulation is to use the same random number stream for each estimator 
in the simulation [Ref. 1, p. VI 1-24]. Thus, each estimator operates on the same series 
of random numbers, instead of on separate streams of random numbers, and the vari- 
ability between different estimators that would be introduced by differing random num- 
ber streams is reduced to only the variability introduced by the behavior of the 
estimators, as they are applied to the samples through the sectioning and replication 
process. This is accompished in SIMTBED with the random number seeds used to begin 
the generation of the pseudo-random numbers (see Appendix A for a detailed de- 
scription of the SIMTBED parameters). 

D. SIMTBED OUTPUT AND STATISTICS. 

1. The Basic SIMTBED Plot. 

Figure 2 represents the basic SIMTBED plot, a series of boxplots for each 
sub-sample size, representing the simulation for one estimator^ 

Included in the boxplot for each sub-sample size are (M x N)/NE evaluations of an es- 
timator. If regression is performed, the regression asymptote is also plotted. To facili- 
tate plotting the regression line, the sub-samples are placed according to their value (i.e., 
the axis is scaled based on the sub-sample values). The following statistics are listed in 
tabular form for each sub-sample size: the first four central moments, the standard error 
of the mean, and (optionally) the mean squared error. The coefficients of the regression 
equation are also listed. The estimator name appears at the bottom of the plot. 

a. An Example of Generating the Estimators. 

In the example of Figure 2, we have generated Normal, AR(1) (autoregressive) time se- 
ries with mean zero and variance 4, and the successive values of the time series are 

1 These plots have been reduced for enclosure in the thesis. They are normally full-sized. 
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Figure 2. Sample SIMTBED Simulation. 
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correlated with correlation coefficient p = 0.9. The estimator is the familiar moment 
estimator of serial correlation: 



A 

P 



NE-l 

'Yjki - j x*/+i - j ) 

i= 1 




(*t - x ? 






where x is the mean of the NE observations in the estimator. 

Thus, we know the properties of the generated random number stream and 
we are observing the behavior of the estimator p. Figure 2 shows that the simulation 
was performed for each of 8 subsample sizes, ranging from 20 to 500, and 6000 random 
variates were used to simulate each subsample size, and this was repeated 20 times to 
assess the precision of the regression coefficients. So, for example, for subsample size 
100, the number of evaluations of p is given by: 



6000 x 20 
100 



1200 



These 1200 evaluations of p were obtained by proceeding as follows. The 
sample space of 6000 generated data values of the time series is sectioned into batches 
of size 100 (the subsample size in this example). For each section, one value of the es- 
timator is computed. This sectioning is then replicated 20 times (M = 20), which yields 
60 x 20 = 1200 evaluations of the estimator at subsample size 100. From Figure 2, the 
values of the moments computed below the column labeled TOO' are thus based on 1200 
evaluations of p. 

b. Subsample Statistics. 

Continuing with subsample size 100 as an example from Figure 2, the mean, 
standard deviation, standard deviation of the mean, mean squared error, and the higher 
moments (coefficients of skewness and kurtosis using unbiased expressions) are com- 
puted, using all 1200 evaluations of p. The theoretical standard error of the correlation 
estimate can be seen to follow the behavior given by: 

„ _ x A v . sample S.D. of the estimates of the correlation 
S.D. MEAN = - 
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where here n is the total number of estimates of serial correlation used. For subsample 
size 100, the standard deviation of the average of the 1200 estimates of the serial corre- 
lation is estimated from the standard deviation of the 1200 computed values of serial 
correlation. This gives 



.06260 
J 1200 



0.001807 . 



Thus the mean value of the estimate of p, namely 0.8829, is more that two estimated 
standard deviations from the known true value p = 0.9, indicating that the estimator is 
still biased at sample size 100. 

The mean squared error (MSE) is used in this simulation since we know the 
value of the estimator under study for the sample we generated, i.e., we created the 
random number stream with a correlation of 0.9. We can thus measure how the esti- 
mator deviates from this value, still considering its inherent variability, by using the 
mean squared error given by 2 

MSE = + (P-P) 2 . 



where p is the average of all the estimates p of serial correlation (the estimator under 
study in this example), p is the known true value of the serial correlation of the time 

A 

series, and VAR(p) is the sample variance of the estimates of serial correlation (there are 
1200 of these for sub-sample size 100 in this example). This expression is realized by 
considering that the variance of the realized values of the estimators (serial correlation) 
is the second central moment about the expected value of the estimator (E(p), usually 
estimated by p ), i.e. 



VAR(p) = E(p - E(p)) 2 




(P, - pf 



where p represents the estimated value of the statistical estimator under study (i.e., se- 
rial correlation in the example), and p represents the average of all the observed values 
of p The expected value of the estimator, E( p ), may in fact be biased, and not at all 

2 Formula from SIMTBED source code. 
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approach the true value p. So, the Mean Squared Error is used, as the expectation of 
the values of the estimator, p about the true value p. Thus, 

MSE(p) = E (p-p) 2 . 

This Mean Squared Error can be thought of as consisting of two parts: the variation 
of the evaluated estimators about their average (their expected value), and the variation 
of this expected value about the true value p. Mean Squared Error then becomes 

MSE(p) = VAR(p) + (bias) 2 , 

with the 'bias' term representing the difference between the expectation of the estimator, 
E(p) and the true value p, giving 

MSE(p) = VAR(p) + (E(p) - p) 2 . 



Now, using p to estimate the expected value of the estimator (serial correlation in the 
example), E(p), and computing the expected value from the evaluations of serial corre- 
lation gives the formula for computing the estimated Mean Squared Error, 



This becomes 



MSE(p) = 



1 

n 



n 

z 

i= 1 



(pi-pf + ( p-pf 



1 

2 



MSE = 7< y AR(P) + (P - P) 2 ) 



giving the formula used for mean squared error. 3 

If the known values of the estimator are not available for the simulation, 
MSE is not used (SIMTBED parameter entries). 
c. Regression. 

Part of the tabled information of Figure 2 includes the regression coeffi- 
cients, as discussed in Chapter 2. When replications are performed, the variance and 
standard deviation of the regression coefficients for the regression on the means of the 
estimator is supplied. In this example, the degree of regression (the number of terms of 



3 From analysis with thesis advisor. 
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equations 2.1 and 2.2 to be used) is 4, and the regression coefficients can be observed. 
Note that if the number of subsamples in the simulation is too small (eight is a maxi- 
mum, not the required number), SIMTBED will not perform regression. The first value 
listed in the "mean of regression on averages" line in Figure 2 is the estimated asymptotic 
value of the estimator, given by this simulation. Since the estimate of this asymptote is 
0.8929 and the true value is 0.9, the difference is 0.0071. The estimated standard devi- 
ation of the estimate of 0.044 (line labeled "std dev of regression"). Thus the estimate 
0.8929 is within 2 (estimated) standard deviations of its true value. 

Note that if super-replications were performed we could obtain several 
evaluations of this asymptotic value, as well as its average over the number of super- 
replications performed. 

d. Boxplot Graphics. 

For each subsample size, a boxplot is provided which displays the location 
and spread behavior for all the evaluations of the estimator obtained for that subsample 
size. Continuing with the current example, for subsample size 100, then, 1200 values of 
p are incorporated into that particular boxplot. In Figure 2, the boxplots are con- 
structed using reduced graphics, which means the extreme outliers are counted and dis- 
played at the ends of the boxplot, rather than actually plotted, which would occupy 
valuable scaling space on the plot. This way, the majority of the space is devoted to the 
location measures (mean and median) and the spread measure (inter-quartile range) for 
the graph. The asymptote and regression lines are also included when regression is 
performed. This way, the behavior of the estimator can be observed with regard to 
sample size. In Figure 2, it can be seen that the moment estimator indeed has some bias 
at the lower sample sizes, but that the bias disappears as sample size increases. For 
further analysis the user can select the subsample sizes which will be plotted together for 
all the estimators in the simulation in the combined color plot at the end of the simu- 
lation run. Also of note is that this boxplot graph is only one realization of the data that 
is incorporated into super-replications. Up to three consecutive plots like Figure 2 can 
be prepared when super-replications are used, each an iteration itself. 

2. Quantile Plots. 

Figure 3 depicts the second SIMTBED plot produced as each estimator is 
processed. It consists of the empirical quantiles of the estimator at each subsample size, 
with each quantile represented by a symbol. A table below the plot lists the actual val- 
ues. This plot can be seen to correspond exactly with the boxplots of Figure 2. It is 
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Figure 3. Sample SIMTBED Quantile Plot. 
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merely a more detailed representation of the data. Here, the tails of the estimator dis- 
tribution can be examined for symmetry, etc. 

3. Super-replications Output. 

When super-replications are used, a summary quantile plot, like that in Figure 
4, is prepared, along with a tabulated summary (Figure 5). Figure 4 is an example 
super-replication quantile plot. This plot is rather self-explanatory, beyond the fact that 
it consists of the quantiles of each iteration of the basic SIMTBED plot discussed above. 
In other words, in Figure 4, there are three values of the 0.5 quantile averaged and 
plotted with an 'M'; these quantiles are part of the table of summary statistics for all 
super-replications, an example of which appears in Figure 5. Note here that all the 
statistics included in the basic plot are present, and that each has an associated standard 
deviation, obtained by repeating the entire simulation experiment. This procedure can 
be carried on indefinitely by the use of the restart facility. When restart is used, the 
previous values are saved in a file, and all previous data is used to prepare the most re- 
cent super-replications summary table and plot. Refering to Figure 5, we can see the 
mean of regression on averages entry, which is a list of the regression coefficients, and 
we see the moment estimator asymptotically tending to 0.8991, which would indicate 
asymptotic unbiasedness for this estimator, given that the largest sample size used was 
500, and the number of super-replications used here was 3. This would indicate 
convergance to the known value of 0.9 for this estimator. In the next chapter we will 
see the behavior as the super-replications are carried out much further. 

4. Color Combined Estimator Plots. 

After the simulation run has proceeded through all super-replications of as 
many as five statistical estimators, we may be interested in how the estimators compare 
to each other. This plot was incorporated into SIMTBED for that purpose. Figure 6 
is an example of four estimators of serial correlation, all plotted together, for three of the 
eight subsample sizes of the simulation. Note that the group of boxplots (each con- 
taining four boxplots, one for each estimator) is positioned with respect to the second 
one in the group. Note also that the plots are coded dually, as discussed in Chapter 1, 
Section E. That is, they are coded by color and position. The names of the estimators 
appear at the bottom of the plot. Estimator 1, the robust least squares approach to se- 
rial correlation, is the First in each group for the three subsamples. All estimators are 
applied to the same distribution and their behavior can be directly compared. Referring 
to Figure 6, one can observe that for small sample sizes, the robust least squares esti- 
mator has the best behavior in terms of bias. Note that the samples come from the 
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Figure 4. Sample SIMTBED Super-replication Quantile Plot. 
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Figure 5. Sample SIMTBED Super- replication Summary Statistics. 
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Normal AR(1) data. The next chapter will demonstrate that this good behavior of the 
robust estimator does not hold for other types of time series, but the point here is that 
with this combined estimator plot, the behavior is readily apparent, and though all the 
tabulated data from the entire simulation is available for review, this information is ap- 
parent from an immediate glance at this type of plot. Thus, the effort required to per- 
form output analysis from the multi-factor statistical simulation has been significantly 
reduced through the use of color and graphical displays of the simulation results. 

5. Multi-Factor Simulations With SIMTBED. 

Chapter II discussed the multi-factor aspects of statistical simulations, and this 
section discusses how they can be addressed using SIMTBED. There is a direct appli- 
cation of the simulation factor sample size to the SIMTBED package. The SIMTBED 
subsample size becomes the sample size factor. With SIMTBED, there are five estima- 
tors possible, and there are three other factors involved in any common statistical sim- 
ulation: estimator used, distribution of the samples, and parameters of that distribution. 
Thus, the estimator parameter of SIMTBED can be used to express any one of these 
remaining three factors, leaving two factors that will require multiple runs of the 
SIMTBED simulation. This still represents a great reduction in the amount of separate 
work required. For example, in the next section we will use four of the five positions 
of SIMTBED to represent the estimator used, and then SIMTBED will be run for dif- 
fering combinations of distribution and parameter (e.g., Normal(0,l) p = 0.0, 0.9, and 
-0.9). When SIMTBED is run on the common personal computer, all one need do is 
execute SIMTBED in parallel on several available machines, and the multi-factor simu- 
lation is completed. Actually, we are using the personal computer itself to apply one 
factor of the simulation. That was the approach taken for the application presented in 
the next chapter. 
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IV. ANALYSIS OF LAG-1 SERIAL CORRELATION 



The purpose of this chapter is twofold: to provide a demonstration of statistical 
simulation using SIMTBED, and also to provide some simulation results for some esti- 
mators of serial correlation gathered from the literature. Some of these estimators differ 
from the standard ones in that they have varying degrees of robustness claimed for them, 
and so we will run simulations to demonstrate this, or the lack of this robustness. By 
robustness, we mean the ability to produce nearly correct or unbiased estimates of the 
actual serial correlation when the underlying marginal distribution of the data is no 
longer the Normal distribution, and the time series are not linear AR(1) processes. With 
that in mind, the choice of distributions and time series to be used is made. We begin 
with a description of the estimators of lag- 1 serial correlation that are compared, fol- 
lowed by a discussion of the distributions, parameters and processes chosen. The results 
of these simulations, run with SIMTBED on the PC are then discussed. 

A. THE ESTIMATORS. 

For this simulation experiment, we have available four estimators of the serial cor- 
relation of a random process (random number stream). These are: 

• The moment estimator. This is the most widely known and used estimator of serial 
correlation in a time series, and so is included here. It is a non-parametric estima- 
tor. 

• The Maximum Liklihood Estimator. Also called the Priestley estimator. Some- 
what more involved computationally, and its derivation depends on the explicit 
assumption that the data comes from a Normal, linear autoregressive (AR(1)) time 
series. 

• The Cressie estimator. Carrying the name of Noel Cressie, this estimator has the 
potential for robustness because of its choice of the median as the measure of lo- 
cation, rather that the more common mean. 

• Robust Least Squares Regression. Also called Iterated Weighted Least Squares 
(IWLS), this method has appeal in its purported ability to reduce regression errors 
in successive passes, but the choice of the weighting function must be made, and 
it can be computationally intense. 

Each of these estimators is discussed in greater detail below. 

1. The Moment Estimator. 

This estimator has a form that is analogous to that for the correlation coeffi- 
cient for two samples given in any statistics textbook, except that the two samples are 
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actually the members of only one sample, but offset by one index, i.e., the data is ob- 
tained from a time series (discrete parameter stochastic process). This yields, from the 
Lewis and Orav text on simulation methodology [Ref. 1, p. VI 1 1-57] the following esti- 
mator for the lag one serial correlation. The correlation coefficient of lag one is defined 
as 



_ Covt^W _ E[X,X, +I ] - E[XJE[X i+l ] 

P VVar (X,)Var(X i+l ) 7Var(.r,)Var(X i+l ) 

For stationary time series, the correlation coefficient is independent of time (serial 
number), and the moment estimator becomes 



n - 1 

Pm = — 5 • ( 4 - 1 ) 

(n-.l)Y(A)-I ) 2 

/=! 



The term moment estimator is used for this estimator because the arithmetic mean x is 
used to estimate E[X] and the usual moment estimator is used for Ep^X,*,]. In fact, 
though, the estimator used in this simulation is the form of equation (4.1) with the (n-1) 
bias term in the denominator replaced by (n), which yields the computational form re- 
ferred to by Lewis and Orav as the Yule- Walker estimator [Ref. 1, p. VI 11-56]: 



A 

Pm 



n - 1 

Y}X,-X)(X, +l -X) 



i=\ 



% 



-x? 



i= 1 



(4.2) 



Again, this estimator is widely used for estimating serial correlation, and as will be seen, 
has good asymptotic properties as sample size increases (depending on the underlying 
distribution), but can have significant small-sample bias, especially with time series 
whose marginal distributions are markedly different from the Normal distribution. 



26 



2. The Priestley (conditional M.L.E.) Estimator. 

This estimator is put forth as the conditional .Maximum Liklihood Estimator 
(MLE), also called for convenience the Priestley estimator of lag-1 serial correlation 
[Ref. 8]. It also has good asymptotic properties, as well as the problem of small-sample 
bias, as the simulations will demonstrate. The estimator is 



A 

Pmle ~ 



n-1 

- £)( x M - A) 

i=\ 



n-1 







(4.3) 



where 



and 



and 



[(A-B) + (n - 1)I (I) (I (2) - J (l) )] ’ 




Average over first (n — 1) observations 
in the time series of length n 




Average over last (n — 1) observations 
in the time series of length n 



n-1 




i=\ 



and finally, 



B 



n-1 

/=1 
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3. The Cressie Estimator. 



This interesting estimator of lag* 1 serial correlation has vague sources. It was 
obtained by personal communication with Cressie by Professor Lewis. The estimator is 



where X is the median of the sample. One can only comment and speculate on the be- 
havior of this estimator. Lacking analytical results, we resort to statistical simulation 
to observe its behavior. 

B. ROBUST REGRESSION TO ESTIMATE SERIAL CORRELATION. 

We start here by presenting the Normal autoregressive lag-1 model (AR(1)), and 
then show that normal regression yields the usual estimate for p discussed in section A.l 
above. Then the Iterated Weighted Least Squares (IWLS) procedure is presented, with 
a short discussion concerning the literature. 

In the Normal (Gaussian) AR(1) model, the observations x k+l are determined from 
the previous x k , the correlation coefficient p, and a random deviation that can be Normal 
or non-Normal (it is Normal for the Normal model).* Thus, 



This is referred to by Denby and Martin as the "Innovations Outlier Model (IO)"[Ref. 
9, p. 140]. They also describe an "Additive Effects Outlier Model (AO)," but that will 
not be pursued here. The model (4.5) is the approach taken to generate correlated 
Normal random streams, as will be discussed presently. If one wishes to assume the e 
in Equation (4.5) are normally distributed with mean zero, and standard deviation o, 
then a zero-intercept regression model can be applied, and shown to yield the moment 
estimator above. It is when this assumption of normality is not applicable that iterating 
the least squares procedure with weighting functions can be interesting. Thus, using the 
matrix notation adopted in the study of linear regression, we can restate the IO model 
as: 



4 This model was introduced to me by P.A.W. Lewis, but also appears in [Ref. 9 , p. 140]. 
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(4.4) 



pX t + . 



(4.5) 
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Y 



p X + e 



(4.6) 



where Y is the vector of the last N-l members of the random number stream, and X is 
the vector of the first N-l members. Thus, we are regressing the random stream against 
itself, offset by one element. Using the matrix solution to the least squares regression 
procedure^ 

p = (X T X)-' x t y. 

This yields, for the 10 model above: 

*/ + i 



This formula actually uses the fact that we know in the simulation that the mean 
value of the X i s is zero. The sample mean would normally be subtracted from the data, 
as in Equation 4.2, but this is generally a second order effect. The above formula is ac- 
tually the starting solution used in the IWLS procedure. From this estimate of p, the 
residuals are computed, from Equation 4.6, by substituting p for p and inverting the 
(linear) equation. A weighting function is then applied to the residuals, and the weights 
are multiplied onto the original data points. A data point which gave a small residual 
will produce a larger weight, and points which produced large residuals will yield smaller 
weights, even to the point of deletion from the regression for extreme outliers. The 
scaling constant helps determine these aspects of the weights. The regression is then 
repeated, yielding a better estimate of p, in terms of the residuals. This is briefly dis- 
cussed by Weisberg [Ref. 10, p. 87], but is presented in more detail by Beaton and Tukey 
[Ref. 11, pp. 151-152]. These authors refer to this estimation procedure as "w-estimates," 
being multiple steps of "m-estimates." The common least squares weighting function, 
the "bi-square" function, given by 

5 From course notes, OA3103, Prof. Larson, Spring 1987. 
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w(w) 




for |w| < 1 



else 



(4.7) 



is used to determine the weight for the next step of the regression, based on the value 
of the residuals. The arguments for this function in the IWLS procedure are the resi- 
duals calculated from the previous regression step, using the last estimate for p. The 
median, denoted here by S, multiplied by a scaling constant, c (chosen to provide good 
performance of the IWLS method), is used to scale the residuals. Thus, the argument 
u for Equation 4.7 becomes 



with r, denoting the residuals, S the median of the data, and c, the scaling constant, 
usually taking a value of 4.2 or 6. [Ref. 1 1, p. 151] In addition, Denby and Martin chose 
to divide the median by another factor of 0.6745, for reasons not stated. We ran a 
simulation with and without this factor, and chose the standard approach, without the 
additional scaling factor. 

The procedure just described is also known as robust regression. Indeed, in the 
International Mathematics and Statistics Library of FORTRAN subroutines (IMSL) 
implemented on the mainframe computer at the Naval Postgraduate School, there is a 
subroutine which accomplishes this regression. 6 Since the source code is available for 
these routines, it was incorporated into the SIMTBED simulation experiment carried 
out with this research. The weighting function used there is the bisquare weighting 
function just described. 

Robust regression needs a stopping rule. A comparison of the latest estimated value 
of p with the last estimated value can be used. When there is only slight change the re- 
gression can be halted. Additionally, a maximum number of iterations can also be 
specified. 

This robust regression approach to serial correlation is applied in this simulation to 
both Normal and non-Normal distributions. In their paper on robust estimation of se- 
rial correlation, Denby and Martin refer to "M-estimates" and "GM-estimates", or gen- 
eralized M-estimates, depending on the choice and number of the weighting functions 

6 All IMSL routines have source code available through the LIBSOURCE utility of the 
VM/CMS mainframe operating system. 
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used [Ref. 9, p. 141]. This regression approach, which is applied to their "10" model, is 
an "M-estimate", due to the choice of one weighting function, and the use of the 
"rescending Tukey bisquare influence function". According to Denby and Martin, 

As we show subsequently, <p M is highly robust in terms of effiency for good choices 
of \p(x) when model 10 holds, but has an asymptotic bias which can be as cat- 
astrophic as that of the least squares estimate for Model AO. [Ref 9 , p. 141]. 

This simulation attempts to compare these biases, restricted to the 10 model, in addition 
to the behavior of the other estimators described. The distributions and random proc- 
esses used will be discussed below. 

C. DISTRIBUTIONS USED. 

Two different distributions were used in this simulation for marginal distributions 
of the processes. The first is the Normal distribution, with mean zero, and variance four, 
i.e. N(0,4), and the second is the /-Laplace distribution, with parameter /.. The processes 
with these marginal distributions are discussed below. 

1. The Normal distribution. 

Creating correlated random number streams that are marginally Normally dis- 
tributed involves a simple application of the 10 model described earlier. The only real 
consideration is the initial value to use, X 0 This process is referred to as the Normal (or 
Gaussian) Autoregressive process, AR(1). The 10 model is 

^•+1 = P + £/ > 

where c is N’ormal(0,cr 2 ). The value of p is known. For X 0 , use £ 0 /(l — p 2 )i. If the vari- 
ance of the z. random sample is a 2 , the variance of the X sample, after transformation, 
will be o 2 l ( 1 — p 2 ).7 So, we can thus construct a correlated stationary normal time series, 
and then apply all the estimators to it. 

2. The 1-Laplace Distribution. 

A discussion of the /-Laplace family of probability distributions can begin with 
the widely known Laplace distribution. This distribution is known to be constructed as 
the difference of two Exponential (z) random variables, and the standard Laplace ran- 
dom variable has mean zero, and X equal to one. It is also known that the Exponential 
distribution is a member of the Gamma family of distributions, with shape parameter 
equal to one, and scale parameter equal X (this discussion can be found in almost any 

7 From P.A.W. Lewis, thesis advisor. 
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introductory probability text) [Ref. 12, p. 274]. Thus, the standard Laplace distribution 
(the difference of two standard exponentials) can be obtained as the difference of two 
Gamma(l,l) random variable streams (the first parameter is taken as the shape, and the 
second as the scale). Dewald, et al, present the family of distributions defined as 
/-Laplace distributions as being the difference of two Gamma(/,1) random variables [Ref. 
13, p. 4]. This distribution can take a variety of shapes, as shown in Figure 7. 

Because of the various shapes possible by the choice of parameter / of this distribution, 
it was selected for the non-Normal simulation in this study. 

The /-Laplace distribution is symmetric about the origin, and / can be chosen 
to have the shape resemble the Normal distribution (large /), or a very heavy-tailed dis- 
tribution which is very non-Normal in nature (small /). 

Figure 7 contains examples of empirical histograms for various generated 
/-Laplace samples (Closed forms for the densities are hard to compute). But, these 
samples are independent, and this simulation is concerned with serial correlation. We 
need a method to generate correlated /-Laplace streams. 

Unfortunately, random number streams which are created by the linear first 
order autoregressive 10 model (AR(1)) have what is called a "zero defect," meaning the 
value zero for the residual can occur with a positive probability. Moreover, if the pa- 
rameter / is small, this effect can become large. Thus, direct application of the method 
described above for generating correlated Normal random streams (the "linear method") 
to /- Laplace time series can cause severe problems in a simulation such as this, where a 
lot of processing is done to the random stream. For this reason, DeWald, Lewis and 
McKenzie introduce the Square Root Beta Laplace transformation and time series, 
which is non-linear, and does not possess the "zero defect." [Ref. 13, p. 9] 

We can take the expression for the Gaussian AR model (Equation 4.5), and 
treat the correlation parameter (p) as a random entity. DeWald, et al, do this, and define 
the /-Beta Laplace First-Order Autoregressive Process, /-BELAR(l), as 

A'XO = VAXte, ffi) X^t) + LXO , (4.8) 

where A, is an independent, identically distributed (i. i. d.) stream of Beta (la, foi) vari- 
ables, and the B/s are also Beta distributed, with parameters given above. L, (l) is an i. 
i. d. stream of /-Laplace variables with parameter /, and a equal to (1-a). [Ref. 13, p. 10]. 
The parameter a is chosen to fix the serial correlation. With this process, any positive 
correlation can be implemented, with any desired shape of the probability density. As 
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Figure 7. Various Shapes of the 1-Laplace distribution 
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a. goes from zero to one, the full range of positive correlations is covered. To see the 
relation between correlation p and a, and /, note that we can interpret this in the 10 
model discussed above, with the right-most term of Equation 4.8 as the innovation, and 
the coefficient of as a randomly distributed correlation coefficient. This approach 
is taken by DeWald et al, and the correlation coefficient is given in terms of a and /, as 
the expected value of -j Allot, /a) [Ref. 13 , p. 11]: 

ar(fa+4-F(/+i) 

p(l) = ^ . (4.9) 

r(/+|)r(ta + i) 

Thus, this distribution can be used to generate time series with various corre- 
lations, and varying degrees of departure from the familiar Normal-shaped distribution, 
allowing us to investigate the behavior of the statistical estimators of serial correlation 
under different distributional conditions. Note also that the L,(/) random stream in 
Equation 4.8 is an /-Laplace distributed variable, which is computed as the difference 
of two Gamma random variables. 

Figure 8 shows the behavior of several correlated random number streams gen- 
erated using Equation 4.9. Note that the streams cycle, or consist of long runs of very 
small values, followed by peak values, and that this correlation can be the same for 
widely different distributional shapes, given by / (a is then chosen to acquire the desired 
correlation) [Ref. 13, p. 12]. 

D. CONDUCT OF THE EXPERIMENT. 

It was desired to study the estimators under three conditions of correlation: 

• High positive corrUation (p = 0.9). 

• Low correlation/near independence (p = 0.0). 

• Negative correlation (p = -0.9). 

Due to the complex form of Equation 4.9, it is not possible to get an exact inverse re- 
lationship between a and p for the non-Normal distribution. Therefore, p approximat- 
ing the above values was used. 

We studied five marginal distributional shapes (including the Normal distributon): 

• Normally distributed. 

• / = 3, nearly Normal in shape. 

• / = 1, departing from Normal behavior. 
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• / = .4, definitely non-Normal. 

• /= .1, extremely non-Normal. 

Further, for the Normal distribution study, we wished to investigate the convergence 
of the estimators, so a run consisting of up to 23 super-replications of the simulation 
was conducted to demonstrated this. The speed of Normal random number generators 
is such that this is possible in a reasonable time. With the Gamma and Beta generators, 
this type of extended simulation will take an extremely long time, depending on the 
choice of / and a (a few super-replications can easily take several days, so this type of 
run could take weeks on a PC). 

The sample sizes for the experiment ranged from 20 to 500, with eight being used in 
all runs (see the results figures in the next chapter). Also, we performed a run with the 
robust regression estimator using eight sample sizes, the largest sample size being 5000, 
to observe the bias of this estimator. 

Since each run of SIMTBED can accomodate eight sub-sample sizes, these can all 
be combined in a run. SIMTBED can also take up to five estimators. Four will be used 
in this experiment, one for each estimator. Thus one run of SIMTBED is required for 
each distribution and for each correlation under study, giving 15 runs of SIMTBED as 
a base. Of course, debugging and small-sample checkout of the simulations must be 
done. This number of runs is a good size project, but not unmanageable. It compares 
very differently with the example in Chapter 2, without using a simulation package such 
as SIMTBED. The actual number of runs needed to conduct the experiment is much 
more than 15 (about 30), since all the programming related factors must be debugged 
(random number generators, output files, array sizes, etc). The results of the experiment 
are discussed in the next chapter. The amount of output obtained in an experiment like 
this is extremely large, even using an analysis package like SIMTBED. Approximately 
500 pages of graphs, examples of which follow, were generated by this experiment. 
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EXAMPLE PLOTS OF CORRELATED L-LAPLACE RANDOM STREAMS 

L-3, RHO-O.8972 L-1. RHO-O.8972 






Figure 8. Example Sample Paths for the BELAR(l) Process 
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V. SIMULATION RESULTS 



A. NORMALLY DISTRIBUTED SAMPLES. 

Consider first the correlated Normal samples (p = 0.9). Figure 9 shows the color 
combined estimator plot for each estimator (for three selected subsample sizes), as is 
shown in the legend at the bottom of the graph. With this plot added to SIMTBED, 
immediate comparison of the estimators is possible, and from this graph many things 
about the behavior of these estimators are evident. 

First, all four estimators seem to approach the same value, i.e. the true value 
p = 0.9. This is evident from the asymptote lines, which are all plotted at the same lo- 
cation. Further, the tabled data in the plot, as well as the other plots in ihe following 
figures, support this observation. So, these estimators can be seen to be asymptotically 
unbiased, for this sample distribution (Normal). 

Next, consider the small-sample distribution of the estimators. It can be seen that 
the Cressie estimator appears to have the best behavior, in terms of bias at sample sizes 
20 through 60, although there are more negative outliers in the plots for the Cressie es- 
timator than for the others. As an example calculation, we can show how many evalu- 
ations of each estimator are represented by a particular boxplot. Take sample size 20 
for example. The number of evaluations of each of the four estimators represented by 
the boxplot is: 



Similar calculations can be done for any sub-sample size in any SIMTBED simulation. 

Referring to the tabulated data in Figure 9, we can see the means of all the estima- 
tors approaching the known value of 0.9, for all four estimators. The standard devi- 
ations can all be seen to decrease as the convergance proceeds with increasing sample 
size. Note that this is only a brief reproduction of the tabulated data placed in the plots 
for the individual simulations, shown in the later figures. This plot is designed to 
accomodate a maximum of five estimators, so brevity is dictated here. Also note that 
each estimator in the "cluster'' of boxplots for each sub-sample size has its description in 
matching color, but that they are doubly coded by position, so this plot could be used 
even if color printers were not available. 




6000 evaluations 
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Figure 9. Combined Estimator Plot, Normal, Correlated Samples 
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Figures 10 and 11 are examples of the individual plots produced as each estimator 
is processed by SIMTBED. These figures contain the same boxplots that are used to 
prepare the combined estimator plot of Figure 9. All eight sub-sample size plots are 
present in Figures 10 and 11. The means of each sub-sample size can be seen to ap- 
proach the known true correlation of 0.9, and the regression asymptote is listed in the 
'mean of regression on averages' listing of the regression equation, which was discussed 
in Chapter III. Finally, the mean squared error (MSE) is listed in these plots for each 
sub-sample size. This shows the small-sample bias, and as the sub-sample sizes increase, 
the MSE approaches the standard deviation of the estimators, which is evidence of de- 
creasing bias from the known value of 0.9. There are plots produced for moment and 
Priestley estimators which are not included here; they are similar to the those which are 
included here. 

Further insight into the behavior of the estimators is provided from the super- 
replications summary statistics tables, which are provided in Figures 12, 13, 14, and 15. 
In the simulation, SIMTBED has duplicated the process which generated the plots of 
Figures 10 and 11 a total of 23 times, and has 23 values of each statistic presented in the 
summary table. This was possible because of efficient generation of Normally distrib- 
uted variables, and this degree of super-replication cannot be efficiently performed for 
complicated distributions, like the l-BELAR(l) process, due to time requirements, as will 
be seen later. In these figures, though, we can observe a very good degree of conver- 
gence to the known values, for all four estimators, as the sub-sample size increases. The 
MSE also approaches very' closely the standard deviation for all estimators, and the 
variability of all the statistics in the summary table can be seen to be small. Of interest 
perhaps is the standard deviation of the fourth moment, the kurtosis, which is the largest 
of the moment statistics. This is indicative of the higher variability of the higher central 
moments. We can conclude from this part of the simulation that all four estimators are 
asymptotically unbiased with respect to sample size. We can further observe that the 
Cressie estimator appears to be the best behaved in terms of small-sample bias. These 
results apply only to Normally distributed samples, of course. 

The results just discussed apply to only one aspect of the analysis for the Normally 
distributed samples: those with strong positive correlation. Figures 16 and 17 depict the 
color combined estimator plots for independent (p = 0.0) and negatively correlated 
(p = -0.9) sample distributions. It is interesting to observe that, in terms of small- 
sample bias, the uncorrelated Normal samples have the lowest bias, versus the strongly 
correlated samples. Due to the indicated asymptotic convergance (with respect to 
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Figure 1 1. Normal, Correlated Samples. Cressie Estimator. 
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SUWARY STATISTICS OCAN/STD) 23 SIKIHCPUCATUKS 



SUBS&PLE 

SIZE 


20 


60 


100 


ISO 


200 


CO 


350 


500 


KAN 


0.6465 

0.37372-03 


0.8766 

0,29522-03 


0,8847 

0.25622-03 


0.8899 

0.26682-03 


0.8918 

0.25732-03 


0.8932 

0.22202-03 


0,8947 

0,24782-03 


0.8969 

0.27152-03 


STD 


0.1325 

0.4926E-03 


0,69792-01 

0,28282-03 


0.51502-01 

0.32622-03 


0,41122-01 

0.25762-03 


0.35512-01 

0.23512-03 


0.31332-01 

0.27552-03 


0,26532-01 

0.22632-03 


0.21632-01 

0,20912-03 


N.S.E 


0.1422 

0.55862-03 


0,73622-01 

0,31002-03 


0.53732-01 

0.35432-03 


0.42342-01 

0.29292-03 


0.36462-01 

0.24982-03 


0.3C72-01 

0.28102-03 


0.27102-01 

0.2447E-03 


0.21912-01 

0.21962-03 


SKEtttSS 


-1,563 

0.15392-01 


-1.220 

0.2793E-01 


-0.9856 
0. 16952-01 


-0,8151 

0.22232-01 


-0,7345 

0.32062-01 


-0.6296 

0.31402-01 


-0.5457 

0.39422-01 


-0.5173 

0,45182-01 


KURT0S1S 


4,377 

0.1100 


2.855 

0,2179 


1.792 

0.1116 


1.159 

0,97462-01 


0.9843 

0.1596 


0.6610 

0.1384 


0.4992 

0.1433 


0.3921 

0.1036 


SER.C0A. 


0.18862-03 

0,30732-02 


0.9501E-02 

0,45792-02 


-0.25082-02 

0.50612-02 


-0.31142-02 

0.7737E-02 


-0.69182-02 

0.61612-02 


-0.11592-01 

0.95682-02 


-0.91122-02 
0. 1283E-01 


-0,52832-02 

0.16432-01 


QUANTILES 


















0.010 


0.3847 
0. 39622-02 


0,6515 

0,22062-02 


0.7237 

0.17162-02 


0.7681 

0.18802-02 


0.7866 

0.20592-02 


0,8037 

0.15752-02 


0.6214 

0.16202-02 


0.8351 
0. 15922-02 


0.025 


0.5047 

0,23002-02 


0,7063 
0. 15682*02 


0.7622 
0. 14202-02 


0,7931 
0. 1007E-02 


0.6108 

0.11052-02 


0.6224 

0.92802-03 


0.8356 

0.11432-02 


0.6467 

0,14022-02 


0.050 


0.5929 
0. 14942-02 


0.7461 

0.79812-03 


0.7895 

0.12022-02 


0.8141 

0.77382-03 


0.8271 

0.61152-03 


0.6383 

0.87212-03 


0.6469 

0,79372-03 


0,8574 
0, 83&3E-03 


0.100 


0.6806 
0. 1067E-OS 


0.7652 
0. 69242-03 


0.8175 

0.86852-03 


0.8358 

0.67292-03 


0.8446 

0.56902-03 


0.6511 

0.60212-03 


0.8592 

0.63362-03 


0.8685 

0.5012E-03 


0.250 


0.7949 

0.51022-03 


0.8419 

0,40342-03 


0.8569 

0,36022-03 


0.8669 

0.41662-03 


0,6710 

0,34762-03 


0.8747 

0.35402-03 


0.8780 

0.39632-03 


0.8836 
0. 44442-03 


0.500 


0.8773 
0. 26792-03 


0,6886 

0.29912-03 


0,8920 

0.35702-03 


0.8952 

0.25262-03 


0.6960 

0.31482-03 


0.8963 

0.32322-03 


0.8973 

0.29582-03 


0.8986 

0.3117E-03 


0.750 


0.9324 

0.33092-03 


0.9248 

0.35442-03 


0.9210 

0.26222-03 


0.9190 
0. 2907E-03 


0.9172 

0.35482-03 


0.9155 

0.32382-03 


0.9137 
0. 2747E-03 


0.9123 

0.30362-03 


0.300 


0.9760 

0.36952-03 


0.9512 

0.42612-03 


0.9424 

0.3347E-03 


0.9373 
0. 3227E-03 


0.9335 

0.37552-03 


0.9307 

0.39752-03 


0.9264 
0. 34542-03 


0.9233 

0.33002-03 


0.950 


1.005 

0.41112-03 


0.9653 
0. 42402*03 


0.9539 

0.39002-03 


0.9474 

0.36882-03 


0,9419 

0.37652-03 


0.9386 

0.5317E-03 


0,9339 

0,41182-03 


0.9291 

0.40152-03 


0.975 


1.033 

0. 59112-03 


0.9777 

0.55752-03 


0.9635 

0.61222-03 


0.9552 

0.49302-03 


0.9490 

0.48962-03 


0.9451 

0.56962-03 


0.9396 

0,56842-03 


0.9345 

0.53702-03 


0.990 


1.070 

0. 85862-03 


0.9937 

0.85162-03 


0.9750 

0.85192-03 


0.9651 

0.66362-03 


0.9581 

0.67232-03 


0.9531 

0.61452-03 


0.9470 

0.83242-03 


0.9394 

0.69762-03 
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Figure 12. Summary Statistics, Normal Samples. Robust Least Squares. 
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BUWARY STATISTICS (MEAN/STD) 23 SUPEHEPLICRTIONS 

9UBSAPPLE 



SUE 


20 


60 


100 


150 


200 


250 


390 


500 


ICAN 


0.7075 

0.6741E-03 


0,6481 

0,35712-03 


0.6706 

0,36192-03 


0.6816 

0,34632-03 


0,6855 

0,26292-03 


0.6689 

0.24162-03 


0,8918 

0,1%9E-03 


0,8948 

0,27742-03 


STD 


0.2337 

0.612ZE-03 


0,87842-01 

0,37662-03 


0. 5942E-01 
0.37682-03 


0,44762-01 

0,24702-03 


0,36462-01 

0,25682-03 


0,33382-01 

0,33172-03 


0,27592-01 

0,26542-03 


0,2831E-01 

0,22062-03 


N.S.E 


0.3028 

0.95722-03 


0,1020 

0,43612-03 


0.66302-01 
0. 4717E— 03 


0,48422-01 

0,31072-03 


0,41102-01 

0,29622-03 


0,35162-01 

0,34142-03 


0.28782-01 

0,89172-03 


0,22942-01 

0.23062-03 


SKEMSS 


-1.7% 

0. 2126E-01 


. 1.444 

0,37752-01 


-1.152 

0,24342-01 


-0,9466 

0.20572-01 


-0.6443 

0.46502-01 


-0,7746 

0.28582-01 


-0.6735 

0.50172-01 


-0,5065 

0.36382-01 


WJRT0S1S 


4.755 

0.1601 


3.560 

0.3268 


2.059 

0,1371 


1.364 

0.92372-01 


1.235 

0,3144 


0**45 

0,1155 


0.8587 

0,2360 


0,3037 

0,91612-01 


SER.CQR. 


0. 44482-02 
0. 16502-06 


0.14262-02 

0,39492-02 


0.16162-02 

0.58182-02 


0.21272-02 

0,73322-02 


-0,59632-02 

0,95362-02 


-0.14482-01 

0,95412-02 


-0.27902-01 

0,11752-01 


-0.73742-02 

0.16042-01 


QUAKT1L£S 


















0.010 


- 0 . 11 % 

0.5099E-06 


0.5593 

0,28462-02 


0.6828 

0.27132-02 


0,7467 
0. 14982-02 


0,7711 

0.22532-02 


0.7685 

0,23462-06 


0.6135 

0,20142-06 


0.6323 

0,14362-06 


0.025 


0.93942-01 

0.36252-06 


0,6290 

0.19922-02 


0.7247 

0.14592-02 


0.7749 

0.62852-03 


0.7966 

0.13842-02 


0,8117 
0, 16592-06 


0,8299 

- 0.1141E-O2 


0,6445 

0.1040t-VC 


0.050 


0.2439 

0.24822-06 


0.6764 

0,12452-02 


0.7563 
0. 13672-02 


0.7974 

0.10232-02 


0.6152 
0. 89482-03 


0.6269 

0.95722-03 


0,8460 

0,85202-03 


0.8549 

0,79612-03 


0.100 


0.3989 

0.20062-06 


0,7314 

0,96762-03 


0.7918 
0, 11572-02 


0.8216 

0.81182-03 


0.6340 

0.64942-03 


0,6445 

0,70012-03 


0,8550 

0,62102-03 


0.8653 

0,50652-03 


0.250 


0.6096 

0.10962-02 


0.6054 

0,61902-03 


0.6391 
0. 45252-03 


0.8563 

0,56842-03 


0.6629 

0.37042-03 


0,8697 

0.36492-03 


0,8753 

0.36952-03 


0.6811 

0,37872-03 


0.500 


0.7726 
0. 69722-03 


0.8670 

0,44532-03 


0.6614 

0.40442-03 


0.8888 

0.42762-03 


0.8906 

0.36052-03 


0,8930 

0.41402-03 


0,8948 

0.2471E-03 


0.8966 

0,40602-03 


0.750 


0.8750 

0.4881E-03 


0.9115 

0,32602-03 


0.9135 

0.34232-03 


0.9139 

0.31612-03 


0.9136 

0.3631E-03 


0.9129 

0,31032-03 


0.9116 

0.25222-03 


0,9106 

0,35772-03 


0.900 


0.9260 

0.37542-03 


0,9396 

0.26762-03 


0,9356 

0.36552-03 


0,9322 

0.31782-03 


0,9301 

0.40142-03 


0,9281 

0.34592-03 


0.9247 

0,31972-03 


0.9621 

0,36652-03 


0.950 


0.9474 

0,27242-03 


0.9522 

0,29242-03 


0.9461 

0.29232-03 


0.9415 

0.41872-03 


0.9385 

0,36962-03 


0.9359 

0.37642-03 


0,9319 

0.42782-03 


0,9266 

0.49162-03 


0.975 


0.9592 

0.25742-03 


0.9612 

0.34612-03 


0.9539 

0,39302-03 


0,9493 

0.50722-03 


0.9447 
0. 43422-03 


0,9421 

0,47162-03 


0.9373 

0,51662-03 


0,9332 

0,62192-03 


0.990 


0,9691 

0.29162-03 


0.9693 

0.30342-03 


0.9616 

0.47322-03 


0.9559 

0,48032-03 


0.9516 

0.55362-03 


0,9490 

0.47352-03 


0,9436 

0.51552-03 


0.93S3 

0,62602-03 


ICAN OF REGRESSION ON AVERAGES 0.9004 

0.87092-03 


-2.902 

0.4460 


12.75 

66.41 


-2092* 

3449. 


-999.9 

1551. 




STD DEV OF REGRESSION 


0.46232-02 
0. 12732-03 


2.536 

0,68652-01 


388.4 

11.10 


0,19552+05 6781 

579,9 264.2 




REGRESSION ON VARIANCE 


0.66522-01 


6,971 


-104.3 


766.2 


-1562. 
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Figure 13. Summary Statistics, Normal Samples. Cressie Estimator. 
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SUNDRY STATISTICS HCAN/STD) £3 SUPEJHEPUCATIWS 



SUBSAKU 

SUE 


20 


60 


100 


150 


200 


250 


350 


500 


fCPN 


0.7600 

0.68716-03 


0,6699 

0.31066-03 


0.8854 

0.3441E-C3 


0.8924 

0.3S33E-03 


0.8941 

0.29106-03 


0.6965 

0.23376-03 


0.8974 

0.28506-03 


0.8988 

0.27896-03 


STD 


0.1996 

0,42286-03 


0.9001E-01 

0,33156-03 


0.62206-01 

0,29136-03 


0.46336-01 

0.2495E-C3 


0,39166-01 
0. 27336-03 


0.13886-01 

0.32866-03 


0,27306-01 

0,27296-03 


0.21786-01 

0.21036-03 


K.S.E 


0.2436 

0,61956-03 


0.9492E-01 

0,37656-03 


0.63916-01 

0,31966-03 


0. 4698E-01 
0,28356-03 


0.3962E-01 
0. 28486-03 


0.34086-01 

0.33766-03 


0,27466-01 

0.27706-03 


0,21866-01 

0.2102E-03 


SKBKSS 


-0,9218 

0.78416-02 


-0,7961 

0,21016-01 


-0,6651 

0.1706E-01 


-0.4969 
0. 1604E-01 


-0.4635 

0.31716-01 


-0,4242 

0.29456-01 


-0,3902 

0.40176-01 


-0,3111 

0,30966-01 


KURTQS1S 


1.098 

0,31696-01 


1.289 

0,95166-01 


1.050 

0,75336-01 


0,6774 

0,45366-01 


0.6199 

0,1295 


0,5758 

0.63206-01 


0,5366 

0.1333 


0.2615 

0.8273E-01 


SEA. COR. 


0.2222E-02 

0.28586-02 


0, 12566-02 
0,50246-02 


0. 53336-02 
0.59076-02 


0,11046-01 

0.70126-02 


0.50556-08 

0.88966-02 


-0.17656-01 

0.60316-02 


-0,20876-01 

0,11096-01 


-0.28786-02 
0, 1342E-01 


QUANTILES 


















0.010 


0.1624 

0,22236-02 


0,6041 

0.2602E-02 


0.7054 

0,25446-02 


0.7645 

0,25076-02 


0.7857 

0.20156-02 


0.8019 

0,20596-02 


0.8221 

0.20686-02 


0.8388 

0.13136-02 


0.025 


0.2810 
0. 1778E-02 


0,6630 
0. 1558E-02 


0.7435 
0. 1295E-02 


0.7896 
0. 1144E-02 


0.8099 

0.11666-02 


0.6212 

0.16516-02 


0.8383 
0. 10476-02 


0,8514 

0,10776-02 


0.050 


0.3800 
0. 1899E-02 


0.7065 
0. 1218E-02 


0.7743 
0. 11646-02 


0.8107 
0. 80206-03 


0.8247 
0. 92206-03 


0.8362 

0.11096-02 


0.8498 

0,82096-03 


0,8609 

0,66236-03 


0. 100 


0.4882 
0, 1457E-02 


0.7513 
0. 7031E-03 


0.8047 
0. 6239E-03 


0.8322 

0,76686-03 


0.8428 
0. 61836-03 


0.8523 

0.78136-03 


0.8616 

0,59636-03 


0,8703 

0.52946-03 


0.250 


0.6500 
0. 1007E-02 


0.8191 

0.52976-03 


0.8492 

0,42256-03 


0.8646 

0.5525E-03 


0.8702 

0,35736-03 


0.6761 

0.34366-03 


0,8803 

0.32406-03 


0,8847 

0,42196-03 


0.500 


0.7928 

0,77926-03 


0.8810 

0.4412E-03 


0,8917 
0. 4505E-03 


0.8964 

0,39776-03 


0.8973 

0.38696-03 


0.8991 

0,28466-03 


0,8992 

0,34556-03 


0,9000 

0,37756-03 


0,750 


0.9053 
0. 6534E-03 


0.9325 

0.2772E-03 


0.9282 
0. 4748E-03 


0.9236 
0. 3750E-03 


0.9211 

0.35846-03 


0.9192 

0.24966-03 


0.9162 

0,43726-03 


0,9139 

0.3562E-03 


0.900 


0.9840 

0.7913E-03 


0.9745 

0,43386-03 


0.9585 

0.5678E-C3 


0.9475 

0.5177E-03 


0.9406 

0.50846-03 


0,9369 
0. 36626-03 


0.9300 

0,46896-03 


0,9257 

0,42226-03 


0.950 


1.023 

0. 67UE-03 


0.9984 
0. 6454E-03 


0.9763 

0.6317E-03 


0.9620 

0.6130E-03 


0.9533 

0.70646-03 


0,9480 

0.47856-03 


0.9395 

0,59896-03 


0,9321 

0.49856-03 


0.975 


1.054 

0. 7002E-03 


1.017 

0,75446-03 


0.9912 

0.6805E-03 


0.9758 

0.9218E-03 


0.9645 

0.78906-03 


0.9580 

0.82096-03 


0.9463 

0.6942E-03 


0.9387 

0.58636-03 


0.990 


1.089 

0, U24E-02 


1.036 

0,85746-03 


1.009 

0.8872E-03 


0.9904 
0. 1180E-02 


0.9772 

0.11766-02 


0.9701 

0.10156-02 


0.9575 

0.12846-02 


0.9473 

0,10056-02 


ICAN OF REGRESSION ON AVERAGES 0.9004 -0.7042 

0.84496-03 0.4236 


-96.65 

62.68 


2082. 

3105. 


677.9 

1383. 




STD DEV OF REGRESSION 


0. 46546-02 
0. 11306-03 


2.578 

0.6555E-01 


396.9 

11.09 


0.20186*05 9077. 

594.0 273.3 




REGRESSION ON VARIANCE 


0. 1029 
0. 1070 


4.343 

4.793 


-42.67 

73.46 
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Figure 14. Summary’ Statistics, Normal Samples. Moment Estimator. 
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Figure 15. Summary Statistics, Normal Samples. Priestley Estimator. 
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sample size) of these samples indicated by the individual plots, the run of 23 
super-replications was not repeated. Observe that once familiarity is gained with these 
plots, a great deal of data can be obtained by the analyst in a very short time. It does, 
however, take some time to build these simulations. 

B. NON-NORMALLY DISTRIBUTED SAMPLES, CORRELATED. 

I. Parameter 1 = 3. 

The next series of SIMTBED plots describes the behavior of the four estimators 
for strongly positively correlated /-Laplace variables, with p approximately 0.9. Due to 
the number of runs of this distribution, and the lower efficiency of the random number 
generators when generating Beta and Gamma distributed variables, only three super- 
replications were performed. 

Figure 18 is a color combined estimator plot from SIMTBED of the four esti- 
mators, for sample distributed according to the BELAR(l) process, with / equal three. 
First, observe that now, all four estimators are not asymptotic to the same value. The 
sample distribution has begun to depart from Normality, and the estimators are begin- 
ning to exhibit corresponding changes. The moment and Priestley estimators appear to 
be approaching the true value of 0.8972, or very close, while the Cressie estimator has 
definite bias, and the robust regression estimator is showing slight asymptotic bias. 

With respect to small-sample bias, the two estimators that seem to behave well 
asymptotically also seem to have the worst cases of small-sample bias, as indicated by 
the boxplots of sub-sample sizes 20 and 60. 

Figure 19 is an individual estimator plot for the Cressie estimator. From this 
plot the asymptote of the regression can be seen to disagree with the true value, and the 
boxplots demonstrate the small-sample bias for this estimator. A comparison of the 
standard deviation with the mean squared error also shows the asymptotic bias. The 
standard deviation of the samples starts at 0.1839, at sub-sample size 20, and steadily 
decreases to 0.01520 as the sample size increases, but the MSE does not approach the 
standard deviation, indicating some inherent difference between the true serial corre- 
lation and the samples. The MSE decreases from .2322 to .03578 at sub-sample size 150, 
and then remains relatively constant with respect to sample size. This variability is thus 
attributed to the bias, not to the random variations of the estimator's calculations on the 
random samples. Further, from the regression asymptote and its standard deviation, 
we observe that the regression asymptote of 0.9327 is more than ten standard deviations 
(0.003479) removed from the true value of .8972; the standard deviation of the regression 
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SMTB COMBINED ESTINflTOR BOXPLGTS: SAMPLE S12E: 6000 NO. REPLICATIONS! 80 DEG REGRESSION: 4 
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Figure 16. Combined Plot, Normal Samples. Here, Rlio= 0.0. 
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SKTB COMBINED ESTIMATOR BOXPLOTS: SAMPLE SIZE: 6000 NO. REPLICATIONS: 20 DEG REGRESSION: 4 
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Figure 17. 



Combined Plot, Normal Samples. 



Here, Rho = -0.9. 
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5KTE COWING) ESTIMATOR B0XPU3TS: SAMPLE SIZE: 6000 .HO. REPLICATIONS: 20 DEG REGRESSION: 4 
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Figure 18. Combined Plot, L-laplace samples. Here Rho— 0.8972. 
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coefficients was determined from the 20 replications as part of the generation of this 
plot. 

The summary table for all super-replications (of which there are three) involving 
the Cressie estimator is shown in Figure 20. With super-replications, the MSE is ob- 
served to actually increase, and does not approach the standard deviation at all. The 
bias of this estimator under conditions of only slightly non-Normal sample seems ex- 
treme. 

Figures 21 and 22 show the similar behavior for the robust regression estimator. 
While not as extreme in the case of asymptotic bias (yet) as the Cressie estimator, the 
robust regression approach seems to approach the wrong value as sample size increases 
(bias). Again, the MSE decreases, then reaches some (relatively) constant value, rein- 
forcing the case for asymptotic bias. It is noteworthy here to observe that the largest 
sub-sample size we use is 500, which seems like a reasonable sample size for which to 
get an acceptable value of serial correlation. Shortly we will observe the behavior of 
robust regression for even larger sub-sample sizes. 

Figures 23 and 24 show the behavior of the moment estimator under these 
sample distribution conditions (/ = 3, strong positive correlation). Here we see a large 
small-sample bias, indicated by the boxplot of sub-sample size 20 falling ofF from the 
asymptote line, as well as from the tabulated means, standard deviations, and mean 
squared errors. With these simulation parameters (overall sample size of 6000, and 20 
replications), the regression asymptotic value of 0.8889 for the moment estimator is still 
accurate to two decimal places (with normal rounding). This, combined with the be- 
havior of the MSE for this estimator, would indicate the estimator is asymptotically 
unbiased (although it may not approach the correct value as rapidly as would be the case 
under conditions of Normal samples). From Figure 24, we can see the regression 
asymptote after three super-replications and observe an even closer value to the true 
correlation of 0.8972. We conclude the moment estimator is unbiased for this sample 
distribution. 

The simulation behavior of the Maximum Liklihood Estimator (MLE), i.e. the 
Priestley estimator, is depicted in Figures 25 and 26, again, for the parameter / equal to 
three, and a chosen for strong positive correlation. By a similar analysis, we conclude 
this estimator is also unbiased, but has a large small-sample bias, just as did the moment 
estimator. 
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Figure 19. 



Individual Plot, L-Laplace samples. Cressie Estimator. 
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Figure 20. Summary Statistics, L-Laplace samples. Cressie Estimator. 
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0.90376-03 


0.750 


0.9490 

0.6401E-03 


0.9386 

0.6156E-03 


0.9335 
0. 8418E-03 


0.9311 

0.13526-02 


0.9289 

0.8576E-03 


0.9280 

0.4546E-03 


0.9244 

0.40086-03 


0.9230 

0.14346-02 


0.900 


0.9928 

0.43416-03 


0.9641 
0. 1964E-03 


0.9534 

0.3329E-03 


0.9475 

0.1420E-02 


0,9434 
0. 9452E-03 


0.9411 
0. 10026-02 


0.9366 
0. 5967E-03 


0.9321 

0.11236-02 


0.950 


1.019 

0. 47906-04 


0.9785 
0. 1943E-03 


0.9647 
0. 2976E-03 


0.9566 

0.1317E-C2 


0.9521 
0. 1057E-02 


0.9489 
0. 17756-02 


0.9442 
0. 1021E-02 


0.9380 

0.11996-02 


0.975 


1.047 

0.5747E-03 


0.9914 
0. 2168E-03 


0.9746 
0. 10796-03 


0.9659 
0. 1762E-02 


0.9582 
0. 1351E-02 


0.9540 
0. 1541E-02 


0.9493 

0.20396-02 


0.9412 

0.18166-02 


0.990 


1.061 

0. 222BE-02 


1.005 

0. 4448E-03 


0.9852 
0. 1692E-02 


0.9746 
0. 23586-02 


0.9659 

0.2136E-03 


0.9594 
0. 14766-02 


0.9570 

0.18396-02 


0.9465 
0. 1331E-02 


WEAN OF REGRESSION ON PARAGES 0.9060 

0. 36066-02 


1.238 

2.097 


-281.7 
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0.14406*05 
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ESTIMATOR! 


*«Rho(.8972) of SqrtBeta L laplace AR r.v.s, A*. 82, L» 3 Ihinfl Robust 


Least Squares estimator (04.2) 



Figure 22, 



Summary Statistics, L-Laplace samples. Robust Least Squares 
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suB$am 
















SIZE 




20 


60 


100 150 


200 


250 350 


500 


KAN 




0.6857 


0.8285 


0.8541 0.8697 


0.8769 


0.8844 


0.8829 


0.8880 


STD 




0.1944 


0.8405E-01 


0.6040E-01 0.4341E-01 


0.3936E-01 


0. 3080E-01 


0. 2679E-01 


0.2290E-01 


STD ICflN 


0.2510E-02 


0. 1879E-02 


0. 1743E-02 0. 1S35E-02 


0.1607E-02 


0. 1406E-02 


0. 1453E-02 


0. 1478E-02 


H.S.E 




0.2873 


0.1086 


0.7422E-01 0. 5136E-01 


0. 4427E-01 


0.3337E-01 


0.3035E-01 


0. 2468E-01 


SKEWtSS 


-0.8870 


-0.9672 


-0.9224 -0.5846 


-0.6873 


-0.3753 


-0.4695 


-0.2174 


KURT0S1S 


0.9891 


1.4398 


1.6753 0.3557 


0.7104 


0.1048 


0.5516 


-0.2563 


CAN OF REGRESSION ON PARAGES 0.8689 0.4267 


-693.6 


0. 34506+03 


0. 1541E+05 


VARIANCE OF RE6RESSUN 


0.2059E-04 4.805 


0. 1060E+06 


0.2668E+09 


0. 5391E+08 


STD DEV OF REGRESSION 


0.45386-02 2.192 


325.6 


0, 1634E+05 


73. 2. 




REGRESSION ON VARIANCE 


0.7936 


-25.45 


396.4 


-2330. 


.751. 




ESTIMATOR! «*Rho(.8972) 


of SqrtBtU L Uplact AR r.v.s. ft“.82. L* ■ 


9 Using mint rstlutor 






VERTICAL SCALE! YM1N « 
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YNAX ■ 


1.1921 













Figure 23. Individual Plot, L-Laplace samples. Moment Estimator. 
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SUKARY STATISTICS (MEPN/STD) 

SUBSAMPLE 



SUE 


20 


60 


100 


150 


MEAN 


0.6674 
0. 1849E-02 


0.6299 

0.7716E-03 


0.8561 
0. 1025E-02 


0.6690 

0.3937E-03 


STD 


0.1940 
0. U79E-02 


0.6322E-01 

0.54242-03 


0.5963E-01 
0. 1273E-02 


0. 4518E-01 
0,10392-02 


K.S.E 


0.2857 

0.2135E-O2 


0,1070 
0. 76952-03 


0. 7260E-01 
0.12662*02 


0.53282-01 

0.10662*02 


SKEWNESS 


-0.9477 

0.3128E-01 


-0.9544 

0.2295E-01 


-0.9904 

0.69832-01 


-0.7313 

0.94642-01 


KURT0S1S 


1.232 

0.1276 


1.540 

0.5649E-01 


2.065 

0.3005 


1.161 

0.4990 


SER.CQA. 


0. 38422-03 
0. 1160E-02 


0,26056*02 

0.3988E-O2 


0. 13762-01 
0. 1311E-01 


-0. 16132-01 
0. 2933E-01 


QUANTILES 










0.010 


0. 1065 
0.3629E-02 


0.5763 

0.2412E-02 


0.6799 
0. 8594E-02 


0.7426 

0.2236E-02 


0.025 


0.2144 
0. 2442E-02 


0.6343 

0.2174E-C2 


0.7165 

0.3386E-O2 


0.7681 

0.5216E-O2 


0.050 


0.3161 

0.5277E-O2 


0.6765 
0. 2757E-02 


0.7466 
0. 2981E-02 


0.7880 

0.2270E-02 


0.100 


0.4234 
0. 4652E-02 


0.7163 

0.3028E-02 


0.7781 
0. 21932*02 


0.6082 

0.2071E-02 


0.250 


0.5621 

0.2262E-02 


0.7641 
0. 9969E-03 


0.8232 

0.95902-03 


0.8414 
0. 1653E-02 


0.500 


0.7213 
0. 14306*02 


0.6425 

0.9129E-03 


0.8636 
0. 1127E-02 


0.8744 
0. 11682*02 


0.750 


0.6246 
0. 1546E-02 


0.8900 
0. 1043E-O2 


0.8990 

0.18292-02 


0.9020 
0. 7345E-03 


0.900 


0.9013 
0. 4793E-03 


0.9236 
0. 1075E-O2 


0.9240 
0, 1375E-02 


0.9216 

0.7097E-03 


0.950 


0.9413 
0. 1731E-02 


0.9401 

0.6416E-03 


0.9362 
0. 78532-03 


0.9330 
0. 1567E-02 


0.975 


0.9766 

0.2496E-O2 


0.9550 
0. 1713E-02 


0.9472 
0. 8573E-03 


0.9406 

0.1154E-02 


0.990 


1.015 

0. 2242E-02 


0.9685 

0.2126E-O2 


0.9568 
0. 1795E-02 


0.9530 
0. 17862*02 



MEAN OF REGRESSION ON PARAGES 


0.8963 
0. 44642-02 


-3.500 

2.242 


STD DEV OF 


REGRESSION # 


0.45062*02 
0. 2209E-03 


2.362 

0.1113 


REGRESSION 


ON VARIANCE 


0.5691 


-16.17 



0.1361 6.730 

ESTIMATOR! w*Rt>o (• 8372) of Sqrtfct* L Upl** AR r.v.t, A-.82, 



3 SUPER-REPLlCATimS 



200 


250 


350 


500 


0,6765 

0.*SllE-03 


0.6627 

0.9492E-03 


0.6644 

0,74642-03 


0,6691 

0.11602*02 


0.3675E-01 

0.3361E-03 


0.3146E-01 
0. 70162-03 


0,27042-01 

0,51562-03 


0.22592-01 
0. 5926E-03 


0.4394E-01 
0. 3695E-03 


0.34692-01 
0. 75622-03 


0.2992E-01 

0.54002-03 


0.24042-01 
0. 92642-03 


-0.8229 

0.62S3E-01 


-0.4499 

0.3941E-01 


-0.4607 

0.1003 


-0.5149 

0.1740 


1.360 

0.5141 


0.2761 

0.9601E-01 


0.3169 

0.2207 


1.062 

0.7637 


-0. 3241E-02 
0.2326E-01 


-0.17492-01 

0.22662-01 


0.33712*02 
0. 7194E-01 


-0.50502-01 
0. 4585E-01 



0.7565 


0.7970 


0.60% 


0.6261 


0. 3032E-02 


0.51292-02 


0. 72852*02 


0. 1S31E-02 


0.7662 


0.6136 


0.8274 


0.6434 


0.36582-02 


0.32982-02 


0. 16602*02 


0.29852-02 


0.8061 


0.8266 


0.6371 


0.6507 


0. 23752-02 


0. 27712-02 


0. 93762-03 


0.26062-02 


0.8264 


0.6411 


0.6475 


0.6600 


0.19092-02 


0. 1364E-02 


0.11442-02 


0.29052-02 


0.8539 


0.6639 


0.6663 


0.8738 


0. 56142-03 


0.13552*02 


0.66452-03 


0.17112-02 


0.8811 


0.6645 


0.6663 


0.8900 


0. 4967E-03 


0.1451E-O2 


0. 1021E-02 


0.12442-02 


0.9036 


0.9051 


0.9039 


0.9055 


0. 5512E-03 


0. 29392-03 


0. 1W9E-02 


0.52322-03 


0.9207 


0.9216 


0.9173 


0.9169 


0. 1056E-02 


0.10852-02 


0. 1167E-02 


0.76622-03 


0.9310 


0.9302 


0.9234 


0.9239 


0. 17732-02 


0.17232*02 


0.81622-03 


0. 14582-02 


0.9397 


0.9364 


0.9305 


0.9287 


0. 1459E-02 


0.92422-03 


0.12002-02 


0.42632*03 


0.9506 


0.9468 


0.9396 


0.9355 


0.18562-02 


0.44802-02 


0.31422*02 


0.71452-03 


-109.3 


6293. 


3009, 




324.6 


0.15582405 


6842. 




366.2 


0.18762405 


8496. 




21.49 


1235. 


581.5 




269.5 


-1630, 


3421. 




110.7 


719.2 


1546. 
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Figure 24. Summary Statistics, L- Laplace samples. Moment Estimator. 
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SUBS&ttl 


















SIZE 


20 


60 


100 


150 


200 


250 350 


500 


£AN 


0.6913 


0.8264 


0.6575 


0.8716 


0.8766 


0.8804 


0.8844 


0.6869 


STD 


0.1950 


0.6362E-01 


0. 59332-01 


0,44842-01 


0. 3693E-01 


0. 32462*01 


0.26642-01 


0.2279E-01 


STD JCAN 


0.25182-02 


0. 1874E-02 


0. 1713E-02 


0, 1585E-02 


0.1508E-G2 


0.14822-02 


0. 1445E-02 


0.14712-02 


H.S.2 


0.2636 


0.1098 


0.7140E-01 


0.51612*01 


0.4229E-01 


0.3657E-01 


0. 29542-01 


0. 25002*01 


SKEWNESS 


-0.9796 


-1.1145 


-0.9425 


*0.7104 


-0.6864 


-0.5906 


*0.3731 


-0.3441 


KtIRTOSIS 


2.2236 


. 2.1594 


1.4534 


0.6675 


0.3702 


0.4647 


-0. 0325 


0.0045 


ICAN OF REGRESSION ON PHRASES 0.6927 


-2.758 


-71.13 


•071.0 


-1089. 




VARIANCE OF REGRESSION 


0. 14162-04 


3.591 


0. 79422*03 


0.2024E409 


0.41262*08 


STD DEV OF REGRESSION 


0. 3763E-02 


1.895 


281.6 


0. 14232*05 


6423. 




REGRESSION ON VARIANCE 


0.6364 




18.20 


283.9 


-1634. 


3307. 




ESTIMATOR! ***RSo(.8972) 


of SqrtkU L UpUc# AR r.vs.. £K82, L“ 3 Uiino Priwtly EiUwtor 






VERTICAL SCALE! YN1N « 


0.2176 
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Figure 25. 



Individual Plot, L-Laplace samples. Priestley Estimator. 
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SIMMY STATISTICS UCAN/STD) 3 SUPER- REPUCAT1EWS 



SUBSAMPLE 

SIZE 


20 


60 


100 


150 


200 


250 


350 


500 


KPN 


0,6917 
0. 22706-03 


0.8270 

0.39486-03 


0.6566 

0.47446-03 


0.8719 

0.54836-03 


0.8770 

0.28636-03 


0.8816 

0,82096-03 


0.1867 

0.11756-02 


0.8879 

0.59486-03 


STD 


0.1950 

0.67026-04 


0.6168E-01 
0. 1534E-02 


0,56356-01 

0.89786-03 


0. 4501E-01 
0.15896-03 


0.37686-01 

0.38796-03 


0.33226-01 

0.49266-03 


0.26396-01 

0.32146-03 


0.22626-01 

0.98446-04 


K.3.E 


0.2633 
0. 18706-03 


0.1077 
0. 1417E-02 


0.71066-01 

0.5161E-03 


0.51666-01 

0.38006-03 


0.42756-01 

0.28816-03 


0.36706-01 

0.50306-03 


0,28446-01 

0,67756-03 


0,24476-01 

0.31576-03 


SXDfCSS 


-0.9561 
0. 1367E-01 


-0.9541 

0.6558E-01 


-0.9443 
0. 24426-01 


-0.7927 

0.65706-01 


-0.6319 

0.54956-01 


-0.6095 

0.40646-01 


-0.4438 

0,61996-01 


-0,3528 

0.93496-02 


KURT0S1S 


1.623 

0.2022 


1.366 

0.3995 


1.606 

0.2350 


0.8451 

0.2434 


0.4770 

0.8291E-01 


0.4435 

0,21256-01 


0,98956-01 

0.1717 


0.15646-01 

0.8717E-01 


S6R.C0R. 


-0.69906-02 

0.35306-02 


0. 67346-02 
0. 1441E-01 


0.20506-02 

0.11616-01 


-0. 7611E-02 
0. 1191E-01 


0.51946-02 
0. 14596-01 


0.12086-01 

0.51706-01 


0.12266-01 

0.39996-01 


0.65326-01 
0. 16306-01 


QUANTILES 


















0,010 


0.1042 
0. 72442-02 


0.5754 
0. 83256-02 


0.6838 

0.66056-02 


0.7340 

0.39836-02 


0.7671 

0.55786-02 


0.7831 

0.12196-02 


0.8174 

0.25996-02 


0.8289 

0.99476-03 


0.025 


0.2200 

0.7299E-O2 


0.6277 
0. 3223E-02 


0.7208 
0. 2237E-02 


0.7700 

0.22736-02 


0.7939 

0.20576-02 


0.8065 

0.40586-02 


0.8277 

0.23176-02 


0.8397 

0.15576-02 


0.050 


0.3225 
0. 19576-02 


0.6749 

0.35O7E-O2 


0.7492 

0.11866-02 


0.7910 
0. 16726-02 


0.8099 
0. 13756-02 


0.8211 
0. 1597E-02 


0.8390 

0.30106-02 


0.8462 
0. 19336-02 


0. 100 


0.4306 
0. 14862-02 


0.7189 

0.2779E-O2 


0.7768 

0.88486-03 


0.8106 
0, 17456-02 


0.8251 

0.10846-02 


0.8369 
0. 1081E-02 


0.8487 
0. 17356-02 


0.6586 

0.96706-03 


0.250 


0.5666 
0. 20436-02 


0.7824 
0. 31296-03 


0.6235 

0.38656-03 


0.8462 

0.19296-02 


0.8542 

0.13466-02 


0.8613 

0.30636-03 


0.8704 

0.11496-02 


0.8733 

0.72836-03 


0.500 


0.7239 

0.22306-02 


0.6400 

0.87016-03 


0.8662 
0. 12356-02 


0.8779 

0.6014E-03 


0.8811 

0.35186-03 


0.8854 

0.79806-03 


0.6881 

0.15256-02 


0.8859 
0. 2623E-03 


0.750 


0.8280 

0.2780E-03 


0.6858 

0.8113E-03 


0.8989 
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Figure 26. Summary Statistics, L-Laplace samples. Priestley Estimator. 



58 




2. Parameter I = 1. 

This set of parameters is the first encounter with the fact that the random gen- 
erators, for large samples, will generate one or more numbers which are smaller than 
(closer to zero than) the smallest number representable in the Ryan-McFarland Fortran 
compiler for micros. The number then becomes a NAN (Not A Number) and propa- 
gates through the computations as ????????. Figure 27 is a color combined SIMTBED 
plot, and it shows the undefined results which ripple through all calculations when an 
invalid number is returned by the random number generator. This is believed to result 
from an underflow error because the parameters of the underlying probability distrib- 
ution that we are asking the FORTRAN subroutines to generate are very small. This 
results in random numbers generated which are very close to, but not equal to zero. The 
random number generators must perform transformations involving logarithms and 
square roots to generate these Gamma and Beta distributions, and when the parameters 
become very small, and the generators are operated very frequently, as they are with 
SIMTBED and these simulations, it happens that an underflow occurs and an invalid 
result is returned. This ripples through every mathematical operation and appears in the 
results, an example of which is Figure 27. In this particular example, the parameter / is 
set to one, or very nearly one (0.95 was used to try and circumvent the problem in this 
particular example). Since there are two Beta random streams required to generated the 
/-BELAR(l) process, with parameters (a/,(l-a)/), it is true that when / is one, and we 
want either a high or low correlation, then either a or (1-a) will be small. This causes 
the Beta generator (which generates Beta numbers as the ratio of Gammas) to under- 
flow. This is a rare event, but the number of operations of a random number generator 
by SIMTBED is extremely large (they are at the heart of the statistical simulation 
process), and only one occurrence is needed to invalidate the entire simulation run. For 
these reasons, we were not able to obtain acceptable results for this parameter of the 
BELAR(l) process. Every available random number generator was tried, and all of them 
have problems generating Gamma random numbers with very small parameters. 
Therefore, we continue with the next case. 

3. Parameter 1 = 0.4. 

This case did not exhibit the type of random number generator problem de- 
scribed above. Figure 28 is the color combined estimator plot for the case of / = 0.4, 
with strongly correlated BELAR(l) samples. From this plot it is immediately obvious 
that there is a difference in the asymptotic behavior of the estimators. It can be seen 
that the robust regression approaches 1.0, when the true value is 0.8954, and further, 



59 



an coeiw) estimtw boxpldtbi sanx size* wn m, (buotionbi 


20 DEE REBRESSlCMi 4 




1.2 - 


10 






1 


1 


0 29 






1 


1 


0 0 






1 


1 


0 0 






1 


1 13 


0 0 






1 


1.1 - 0 


0 0 






1 


1 + 


0 0 






1 


1 1 


i * 


1 




1 


1 1 


1 1 


0 i 




1 


1 1 


1 1 


♦ 0 0 




1 


1.00 : 1 


4^’l 1 


1 ♦ ♦ 0 o 




1 

1 


! 1 1 


1 1 1 
1 1 1 


! 1 ▼ r 
1*1 — l 1 -+--*- 


0 2 


1 


1 l+l 


— 1 1 


-*-1+111 + + 


+ ♦ 


1 


1 l»l 


III 1 


1 — l 1 


1 1 


1 












V. ~ l~ T 










1 — 


111 1 


+ 1+6 


1*1 l+l 


1 


1 1 


III i 


97 1 1 1 1 


— - < — 


1 


1 1 


III 1 


1*1 l+l 


1 1 


1 


1 1 


— . — 


1*1 1*1 


1 ♦ 


1 


0.30 - + 


1 i 1 1 1 


1 1 1 1 


♦ 0 


1 


1 0 


1 1 1 1 1 


1 1 1 1 


5 7 


1 


1 0 


1 1 1 1 1 


— 




1 


1 435 


1 1 1 1 1 


1 1 




i 


1 


l+l M 


1 1 




1 


0.70 - 


♦ 1 1 1 1 


1 1 




1 


1 


1*1 1*1 


1 1 




1 


1 


III! 


| + 




1 


1 


373 1 1 1 1 


+ 0 




1 


1 


11 1 1 


0 0 




1 


o.&o - 
1 
1 


1 1 1 1 
1 1 


34 52 




1 

1 

1 


1 

1 

0.50 - 

1 


1 1 
1 1 
1 1 
1 1 






1 

1 

1 

1 


I 

1 


1 1 
1 1 






1 

1 

1 


0.40 - 

1 


1 1 
1 1 
1 1 






1 

1 

1 


1 

1 


1 1 
+ + 






1 

1 


1 


0 0 






1 


0.31 - 


0 0 






1 


1 


0 0 






1 


1 


0 0 






1 


1 


0 0 






1 


1 


181 ISO 






1 




1 

20 


60 350 




SUBSftHPLE SIZE: 


20 60 350 






ESTIMATOR 1: 


MEAN: 


0.9180 0.9548 0.3706 








STD: 


0.1160 0. 4408E-01 0.1173E-01 








STD MEAN: 


0. 1497E-02 0. 9857E-03 0. 6360E-03 






SUBSAKU SIZE: 


20 60 350 






ESTIMATOR 2: 


MEAN: 


7?77 o. 9676 








STD: 


’ o. 9166E-02 








STD >€AN: 


hhhhHhhhhmhbhhwhhh hmhh o. 4971E-03 






SUBSfWLE SIZE: 


20 60 350 






ESTIMATOR 3: 


MEAN: 


0.6955 0. 6228 0.8610 








STD: 


0.2022 0.9387E-01 0.3732E-01 








STD «A N: 


0.2610E-02 G.2099E-02 0.2024E-02 






SUBS00LE SIZE: 


20 60 350 






ESTIMATOR 4: 


MEAN: 


0.6976 0.8263 ?????????????? 








STD: 


0.2110 0.8991E-01?????????????? 








STD HE AN: 


0. 2724E-02 0.201 IE-02?? ????”?????? 






ESTIMATOR 1: 


***flho(.8%3) of SqrtBtt* L laplitt Afl r.v.s, 0.84, L* .95 Iking 


Robust Lust Squirts fftiiator (04.2) 




ESTIMATOR 2: 


***fiho(.8%3) of SqrtBft* L laplftct AR r.v*., 0.84, l* .95 Iking 


Crtssie Estimator 




ESTIMATOR 3: 


*+*Rhol.8963) of Sort Bit a L iaplact AR r.v.s, A*. 84, L* ,95 Using 


•oaent tst stator 




ESTIMATOR 4; 


*** !•*>(. B%3) of SqrtBtta L Iaplact AR r.vs., 0.84, L= .95 Using 


Pritstly Estiiator 




+** WIDEST Y VALUES FOUND: 


YMIN=0. 7611 - YMAXs 2.160 *** SMTB *+* 






«• THIS HAS A RESTART RUN. NSR START/EMp 1 3 







Figure 27. Combined Plot, L-laplace samples. Rho= 0.8963. L= 0.95. 
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that the small-sample bias of the robust regression is also unacceptable. The Cressie 
estimator also has serious asymptotic bias with respect to sample size, but is better be- 
haved with small-sample bias. Still, it would appear that both of these estimator are very 
poorly behaved with extremely 'heavy-tailed', non-Normal samples such as these. The 
two estimators that are asymptotically unbiased are the moment and MLE estimators, 
but they are beginning to show larger and larger sub-sample sizes required to reach the 
true value. Also, as we depart from Normal samples, the small-sample bias of these es- 
timators becomes larger. 

Figures 29 and 30 clearly show the biased behavior of the robust regression es- 
timator. This bias is referred to by Denby and Martin, when discussing the "M- 
estimate," and the "GM-estimate." This robust regression model is the "M-estimate," 
and hence demonstrates the asymptotic biased behavior referred to by these authors. 
[Ref. 9, p. 141] The further from Normality the sample distribution becomes (in terms 
of the / parameter of the /-Laplace distribution and "heavy-tailedness" of the underlying 
probability distribution), the worse the behavior of these estimators becomes. Figures 
31 and 32 are the individual plots for the Cressie estimator. With only three super- 
replications, we can see good stability in the simulation results (in terms of the standard 
deviations reported with every statistic in the super-replications summary (Figures 30 
and 32). 

Figures 33 through 36 are the individual plots for the two "convergent" estima- 
tors, the moment and the MLE estimators. Here, we can begin to compare these and 
see if perhaps one estimator is becoming unbiased faster than the other (again, with re- 
spect to sample size). It appears from Figures 33 and 35 that the MSEs of both esti- 
mators are decreasing at about the same rate. The asymptotic regression estimate for 
the moment estimator (0.9048) is larger than that for the Priestley estimator (0.8941), 
but the Priestley estimator is underestimating the actual correlation, while the moment 
estimator is now over-estimating the true value. Both estimators appear to be exhibiting 
similar behavior. (The reader will undoubtedly note the volume of output required to 
be analyzed when computers are used to conduct simulations, and hopefully will begin 
to appreciate the purpose of such a package as SIMTBED.) 

4. Parameter 1 = 0.1. 

As the final case of the strongly correlated, non-Normal samples on which we 
estimate serial correlation, the extreme non-Normal case where parameter / = 0.1 was 
run with SIMTBED. The results begin with Figure 37, which is a color combined esti- 
mator plot of this simulation. It is clear from Figure 37 that the estimators are split into 
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Figure 30. Summary Statistics, L-Laplace samples. Robust Least Squares. 
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Figure 31. Individual Plot, L-Laplace samples. Cressie Estimator. 
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Figure 32. Summary Statistics, L-Laplace samples. Cressie Estimator. 
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Figure 33. Individual Plot, L-Laplace samples. Moment Estimator. 
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Figure 34. Summary Statistics, L-Laplace samples. Moment Estimator. 
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Figure 35. Individual Plot, L- Laplace samples. Priestley Estimator. 
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Figure 36. Summary Statistics, L-Laplace samples. Priestley Estimator. 
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two distinct classes: the robust regression and the Cressie estimator comprise one group, 
and the moment and MLE estimators comprise the other. The first group is strongly 
biased, while the second group converges, but with slower and slower progress, as this 
particular sample distribution (BELAR(l)) becomes more extreme. Recall that when the 
parameter / is small, and the samples are correlated, the behavior of the sample stream 
is such that there are long runs of numbers very close to zero, and then peaks of a few 
positive (or negative) numbers are interspersed. Figure 38 shows the unacceptably bi- 
ased behavior of the robust regression, and Figure 39 has the super-replications sum- 
mary for this estimator's run. Figures 40 and 41 show the similar behavior for the 
Cressie estimator. Recall that the Cressie estimator showed very sensitive behavior with 
respect to Normality, in that it immediately began to show bias when / was set to three. 
Figures 42 and 43 represent the moment estimator. One might say, without the previous 
simulation results, that this estimator also is exhibiting bias, but I would comment that 
the MSE is still decreasing at sub-sample size 500, and is still roughly twice the corre- 
sponding standard deviation, so it is possible that this estimator is converging, but very 
slowly. The same comments apply to the MLE estimator, results for which are in Fig- 
ures 44 and 45. 

5. Large-Sample Simulation with Robust Regression. 

Before presenting the results on the simulation involving the uncorrelated 
BELAR(l) processes, we present the results for a large-sample simulation involving the 
robust regression. It was desired to determine if the robust regression estimator was 
actually converging, but in the process it might have been actually deviating more from 
the true value for some range of sample sizes. In other words, we were investigating the 
possibility of a non-monotonic convergance to the true correlation value. To do this, 
we ran a SIMTBED simulation with only the robust regression estimator, and used very 
large sample sizes, as can be seen in Figure 46. Here, sub-sample sizes up to and in- 
cluding 5000 were used, with the overall sample size for the simulation increased to 
10000, and the number of replications increase to 50. Thus, at sub-sample size 5000, 
there are 200 evaluations of the estimator represented by that boxplot. This seemed an 
acceptable minimum number of estimator evaluations. Figure 46 shows that there is 
apparently no convergance, even at this extreme, and Figure 47 contains the super- 
replications summary statistics, for three super-replications. The parameter / used was 
0.4, a midranged value that did not cause any problems, and the simulation was con- 
ducted on two separate versions of the robust regression estimator: one, with no addi- 
tional scaling, and the other, with the 0.6745 scaling, referred to in Chapter IV, and used 
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Figure 37. Combined Plot, L-lapIace samples. Rho= 0.8920. L=0.1. 
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Figure 39. Summary Statistics, L-Laplace samples. Robust Least Squares. 
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Figure 40. Individual Plot, L-Laplace samples. Cressie Estimator. 
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Figure 41. Summary Statistics, L-Laplace samples. Cressie Estimator. 
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Figure 42. Individual Plot, L- Laplace samples. Moment Estimator. 
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Figure 43. Summary Statistics, L-Laplace samples. Moment Estimator. 
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Figure 44. Individual Plot, L-Laplace samples. Priestley Estimator. 
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Figure 45. Summary Statistics, L-Laplace samples. Priestley Estimator. 
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by Denby and Martin with their estimators [Ref. 9, p.141]. Figures 48 and 49 have the 
results with the scaling, and Figures 46 and 47 have no additional scaling. There is not 
much difference in the behavior of these two different approaches. The extreme bias of 
the robust regression is present in both cases, for the non-Normal BELAR(l) sample 
distribution being used here. 

C. NON-NORMALLY DISTRIBUTED SAMPLES, UNCORRELATED 

This section presents results for the case of the BELAR(l) process, with values of 
a chosen to produce a very small correlation, on the order of 0.05. In these cases, the 
problems associated with the random number generators previously discussed appear 
again, since the values of / we are interested in range from three down to 0.1. Thus, the 
cases for / = 1, and / = 0.1 produced underflow errors and invalid results. Results are 
available for the cases where / = 3 and / = 0.4. Figure 50 is a color combined estimator 
plot, with all four estimators, in the case of uncorrelated BELAR(l) samples. Here, the 
moment estimator seems to show the least degree of small-sample bias, but the Cressie 
estimator has the best asymptotic performance. Figures 51 through 54 are the super- 
replications summary statistics for each of the four estimator under conditions where / 
= 3. This picture is similar to that of the Normally distributed, uncorrelated samples. 
From the regression asymptotes, the Cressie estimator appears to show the best 
asymptotic behavior, although all estimators seem to be over-estimating the true value, 
indicating there is more correlation in the samples than is actually present. This occurs 
for all sub-sample sizes. 

Figures 55 through 59 show the results for the uncorrelated BELAR(l) process, with 
/ = 0.4. The results are similar to those above, and the Normal uncorrelated case. All 
of these estimators will tend to indicate a slight degree of correlation, even if the samples 
are completely independent, just due to the nature of performing calculations on the 
sample streams. It is very unlikely that they will indicate a zero correlation; something 
like 0.5 to 0.1 is more likely to be the case. 

This concludes the presentation of simulation results on lag-1 serial correlation using 
SIMTBED. For the negatively correlated case, results similar to the positively corre- 
lated case are expected, including the random number generation difficulties. 
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Figure 46. Individual Plot, No Additional Scaling. Robust Least Squares. 
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Figure 47. Summary Stats, No Additional Scaling. Robust Least Squares. 
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Figure 48. Individual Plot, Additional Scaling. Robust Least Squares. 



84 




BJMWY STATISTICS UCAH/STD) 2 ■JPOHtPLICfiTItJB 



SIZE 


eo 


100 


390 


900 


1000 


0008 


3000 


9000 


KPN 


0.9027 

0.47926-43 


0.9131 

0.11546-44 


0.96% 

0.10836-03 


0.9903 

0.70606-04 


0.9910 

0.37466-04 


0.9901 

0.14476-03 


0.9909 

0.49996-44 


0.9909 

0.1993E-43 


STD 


0.1900 

0.48216-03 


0.00616-01 

0,42566-43 


O.4390E-O0 

0.33066-03 


0.5006-06 

0.12916-03 


0.34316-00 

0.13106-03 


0.03156-00 

0.43106-04 


0.1M36-06 
6. 37766-04 


0.16936-00 

O.4095E-O4 


UE 


0.13ft 

0.4903E-03 


0.90776-01 

0.287CE-04 


0. *466-01 
0.14086-03 


0,99056-01 

0.77016-04 


0. 99446-01 
0.42076-04 


0.9530-01 

0.14916-03 


0.99526-01 

0.64066-04 


0.95566-41 
0. 15656-03 


KUOS 


-3.141 

0.1710 


-4.300 

0.4009 


-1.439 

0.4471 


-1.197 

0.1691 


•1.003 

0.0813 


-0.7309 

0.0474 


-0.1910 

0.9)936-41 


0.71436-00 

0.1704 


NJTTD61S 


19.00 

1491 


40.09 

9.907 


4.190 

3.039 


3. 017 
0.4CO 


1.963 

1.195 


1.017 

0.8US 


-0.1030 

0.0000 


-0.3U0 

0.3394 


CL COS. 


-0.37H6-03 

0.43606-Oe 


0.1%16-Oi 

O.0553E-O1 


-0.69306-01 
0. 28416-01 


0.08906-01 

0.09436-01 


0.00106-01 

0.13136-01 


-0.96146-01 
0. 75466-01 


-0.43336-00 

0.30766-41 


-4.1101 

0.8445E-01 


owcmo 


















0.010 


0.04ft 

0*49446-02 


0.9065 

O.17O3E-0e 


0.9463 

0.14326-00 


0.9703 

0.04346-00 


0.9784 

0.19056-00 


0.9K7 

0.10736-00 


0.9641 

0.SS65E-03 


0.9870 

0.4733E-O3 


0.00 


0.4404 

0.65606-40 


0.9315 

O.1769E-O0 


0.9746 

0.60126-03 


0.9790 

0.45096-03 


0.96ft 

0.73666-03 


0.9650 

0.31196-43 


0.9644 

0.6760-03 


0.9670 

0.44006-03 


0.090 


0.4160 

0.46736-42 


0.9463 
0. 1537E-O0 


0.9779 

0.43266-03 


0.9617 

0.03416-03 


0.9849 

0.00026-03 


0.9847 

0.30866-03 


0.9675 

0.11196-03 


0.9864 

0.59446-04 


0.100 


0.7704 

0.62306-03 


0.9430 

0.40606-03 


0.9610 

0.40446-03 


0.9640 

0.15426-03 


0.9844 

0.00346-03 


0.9671 

0.25916-43 


0.9860 

0.13646-03 


0.9684 

0.83746-04 


0.230 


0.9144 

0.35346-03 


0.9785 

0.2552E-G3 


0.9643 

0.33676-03 


0.9676 

0.57096-04 


0,9690 

0.25706-03 


0.9194 

0.30006-03 


0.98% 

0.80436-04 


0.96% 

0. £4066-03 


0.900 


0.9770 

0.4646E-03 


0.9691 

0.96766-04 


0.9906 

0.24156-03 


0.9909 

0.10116-03 


0.9914 

0.01696-04 


0.9910 

0.14666-03 


0.9910 

0.77616-04 


0.9911 

0.17836-43 


0.790 


0.9973 

0.1631E-03 


0.9954 
0. 69166-04 


0.9941 

0.22006-03 


0.9937 

0.10496-03 


0.9935 

0.10366-03 


0.9904 
0. 15316*43 


0.99ft 

0.51556-04 


0.9901 

0.02166-03 


0.300 


1.009 

0,2775E-C3 


0.9995 

0.06526-04 


0.9944 

0.13676-03 


0.9960 

0.17476-03 


0.9950 

0.02976-03 


0.9934 

0.63136-04 


0.9933 

0.00556-43 


0.9930 

0.12496-03 


0.990 


1.080 

0.70526-43 


1.000 

O.1160E-O3 


0.9979 

0.12796-03 


0.9970 

0.61506-04 


0.9956 

0.32746-03 


0.9941 

0.05256-03 


0.9939 

0.04366-03 


0.9941 

0.11546-03 


0.979 


1.034 

0.9061E-03 


1.005 

0.33726-03 


0.9966 

0.21016-03 


0.9979 

0.76406-04 


0.9943 

0.26596-43 


0.9947 

0.19506-43 


0.9947 

O.1073E-O3 


0.9945 

0.1763E-43 


0.990 


1.056 

0.15776-08 


1.009 

0.34776-03 


0.9998 

0.25226-03 


0.9966 

0.09346-03 


0.9949 

0.07426-03 


0.9955 

0.12416-03 


0.9953 

0.14646-43 


0.9946 

0.16366-03 


IEAN OF REGRESSION ON AVERAGES 0.9906 

0.S404E-04 


0.4012 

0.1293 


-370,4 

41.11 


-529,1 

40.50 


1.459 

0.1972 




STD DEV OF REGRESSION 


0.07176-03 

0.12536-04 


0.6629 
0. 35286-01 


091.3 

9.436 


447.7 

11.99 


1.469 

0,35746-01 


REGRESSION ON VARIANCE 


0.1671E-01 -0.5S37 

O.S7UE-Oe 0.7358 


13.46 

21.11 


-65.50 

196.1 


338.9 

502*9 





EBTINATWi of Sqrtlrt* L lapltc. AR f.y.i, (KK, L« .4 Usln« lob. It nt. U74S SCOLD®) 

•M WIDEST Y VPLUEB FOUCi ffllfr-I.IU - YNU« 2.4M m 901 m 
m THIS WS A RESTART AX NSft START /DO* 1 3 



Figure 49. Summary Stats, Additional Scaling. Robust Least Squares. 
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Combined Plot, BELAR(l) Process. L=3. 



Rho= 0.05924. 
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Figure 51. Summary Statistics, L- Laplace Samples. Robust Least Squares. 
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Figure 53. Summary Statistics, L-Laplace Samples. Moment Estimator. 
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Figure 54. Summary Statistics, L-Laplace Samples. Priestley Estimator. 
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Combined Plot, I3ELAR(1) Process. L=0.4. Rho= 0.02911. 
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Figure 56. Summary Statistics, L-Laplace Samples. Robust Least Squares. 



92 



MWWY STATISTICS OEAN/STD) 



J SUPOHBUCATIWB 



SIZE 


20 


60 


100 


150 


200 


850 


350 


500 


mm 


-0.1761 

0.2S2SE-02 


-0.44646-01 

0.22486-02 


-0.21916-01 

0,31776-02 


-0,14376-01 

0.26A36-02 


-0,77846-02 

0.30076-02 


-0.53796-02 

0.27346-02 


-0.11936-02 

0,13306-02 


-0.22276-02 

0.10236-02 


m 


0.070 

0.1571-02 


0.2360 

0.23986-02 


0.1931 

0,29036-02 


0.1562 

0.22206-02 


0.1362 

0,86416-02 


0.1213 

0.44746-02 


0,98906-01 

0.29376-02 


0.85576-01 

0.17716-02 


Kit 


0,5285 

0.1993E-0C 


0.2664 

0.2925E-02 


0,1998 

0.23366-02 


0.1622 

0.25536-02 


0.1412 

0.20026-02 


0,1261 

0.50276-02 


0.1034 

0,31976-02 


0.9113E-01 

0.13356-02 


9KDME36 


-0,906ft 

0,81836-02 


-0,4759 

0.2775E-01 


-0.3454 

0.33676-01 


-0,2904 

0.56026-01 


-0.2141 

0.6623E-01 


-0.1776 

0.46846-01 


-0,1783 

0.46006-01 


-0,8569 

0.66226-01 


fcurmeis 


1.372 

0,56056-01 


0.3431 

0,57406-01 


0,82916-01 

0.1142 


0,1419 

0.1515 


0,48506-01 

0.1496 


-0,48226-01 

0.2557 


-0.28616-01 

0,2045 


0.68896-01 

0.72726-01 


SDL COt 


W&i 


0,72506-02 

0,27116-01 


t&t 


0.16966-01 
0. 1573E-01 




-0,3243-01 

0.50626-01 


-0.185S6-02 

0.21336-01 


0,32016-01 

0.41766-01 


OI*TIi£B 


















0.010 


-1.600 

0,59276-02 


-0,7444 

0.85076-02 


-0,5086 

0.60546-02 


-0.4226 

0.15096-01 


-0.3396 

0.13766-01 


-0,3019 

0.12506-01 


-0.235ft 

0.23426-02 


-0,2363 

0.53866-02 


0.025 


-1.307 

0.9456E-02 


-0,6056 

0.41236-02 


-0,4370 
0. 10076-01 


-0,3495 
0. 13766-01 


-0,2953 

0.92756-02 


-0.8506 

0.11906-01 


-0.1981 
0. 12016-01 


-0,1913 

0.13686-01 


0.090 


-1.067 

0.9203E-02 


-0.4934 

0.95966-02 


-0.3634 

0.23896-08 


-0,2833 

0.20726-02 


-0,2370 

0.66646-02 


-0.2106 

0.99446-02 


-0.1676 

0.67966-02 


-0.1453 

0.36276-02 


0.100 


-0.8235 

0.67226-02 


-0,379ft 
0. 12466-01 


-0,2811 

0.33696-08 


-0.2164 

0.11016-02 


-0.1856 

0.27006-02 


-0.1641 

0.10496-01 


-0.1343 

0.52046-02 


-0,1142 

0.74706-02 


0.230 


-0.4519 

0.38986-02 


-0.2079 

0.45146-02 


-0.1453 

0.54286-02 


-0,1119 

0,40616-02 


-0.1016 

0.31736-02 


-0.83776-01 

0.10236-01 


-0.69196-01 

0.28236-02 


-0.56786-01 

0.23956-02 


0.500 


-0.1052 

0.38756-02 


-0.26446-01 

0.22676-02 


-0.66896-08 

0.39676-02 


-0.77676-02 

0.39576-02 


-0,21186-02 

0.18416-02 


-0.13596-02 

0.14646-02 


0,41576-02 

0.20756-02 


-0.19416-02 

0.88636-02 


0.750 


0.1763 

0.74096-03 


0.1378 

0.14596-02 


0.1121 

0.37246-02 


0.89206-01 

0.28746-02 


0.92326-01 

0.3S61E-02 


0.82936-01 

0.88106-02 


0,67046-01 

0,11756-02 


0,58476-01 

0.33176-02 


0.900 


0.3863 

0.8137E-03 


0,2665 

0.24716-02 


0.2167 

0.30966-02 


0,1847 

0.21986-02 


0.1594 

0.74426-02 


0.1510 

0.37716-02 


0.1243 

0.20286-02 


0.1055 

0.30416-02 


0,950 


0.4856 

0.35106-02 


0.3386 

0.23976-02 


0.2797 

0.91826-02 


0.2313 

0.82226-03 


0.8002 

0.95966-02 


0.1841 

0.38636-02 


0,1540 

0.67226-02 


0.1358 

0.27126-02 


0.975 


0.5606 

0.23856-02 


0.4015 

0.74636-02 


0.3203 

O.1191E-01 


0,2753 

0.76766-03 


0.2438 

0.10296-01 


0,2155 

0.10206-01 


0,1787 

0.95766-02 


0.1570 

0.69936-02 


. 0.990 


0,6347 

0.69696-02 


0.4575 

0.13596-01 


0.3770 

0.14556-01 


0,3085 

0,97256-03 


0.2825 

0.21116-01 


0.8585 

0.11536-01 


0.2263 

0.27736-02 


0.1853 

0.66236-02 



mm of icbjosion on arrases 0,29702-02 


-1.759 


-10ft. 0 


3103. 


1149, 


0.68706-02 


4.637 


769,9 


0. 39046+05 


0,17506+05 


STB 06V OF REBRESS1W 0. 14936-01 


7.766 


1175. 


0.59426+05 


0.26786+05 


0,75256-03 


0.6230 


121.5 


6829. 


3174, 


REKOSION « VARIANCE 2.65ft 


39.61 


-589.4 


3805, 


-7933. 


3.566 


148.6 


2183, 


0.13126+05 


0.26896+05 


ESTIMATOR t Mfihot.02911) of Sqrt&rt* L liploct AR 


r.v*,, 1X02, 


L« ,4 Utlni Crvtilt 6ft tutor 





Figure 57. Summary Statistics, L-Laplace Samples. Cressie Estimator. 
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Figure 58. Summary Statistics, L-Laplace Samples. Moment Estimator. 
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Figure 59. Summary Statistics, L-Laplace Samples. Priestley Estimator. 
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VI. CONCLUSIONS 



A. SIMTBED. 

These types of statistical simulations would be largely infeasible without some sort 
of aids to the user. With routines like SIMTBED, these simulations can be interesting 
investigations. Granted, SIMTBED can be difficult to understand for the beginning 
simulator. But, once familiarity is gained all sorts of investigations and simulations are 
within the realm of the user. Now, we have increased the capability of SIMTBED by 
providing the user the capability to use his personal computer and color output devices 
in statistical simulations, which is often more convenient and cost effective. As tech- 
nology proceeds, these types of programs will attract more attention and produce more 
for the user community. 

B. SERIAL CORRELATION ESTIMATION. 

These simulation results do not, in the opinion of this author, provide any evidence 
to indicate that the more esoteric and analytically intractable estimators of serial corre- 
lation are any better, with regard to producing the "correct" results, than the well- 
understood estimators the standard statistical theory has produced. In fact, they may 
be worse. This is demonstrated by the behavior of the Cressie estimator and the robust 
regression approach versus the familiar moment and less familiar MLE estimators. 
Further, if the user interested in serial correlation has additional information about his 
samples, he can, with these results, determine the behavior of these estimators on his 
samples. In order to get good estimates of serial correlation, the following advice is of- 
fered: 

• Use the largest possible sample size. If possible, it is desirable to be outside the 
small-sample bias effects. 

• Try and ascertain the distributional properties of the sample/population. If it is 
distinctly non-N'ormal, then recognize there will be a corresponding lack of accu- 
racy in the estimate. 

• If possible, obtain multiple samples. Multiple estimates give better overall indi- 
cations of the correlation. 

C. FURTHER EXPERIMENTATION. 

It would be interesting to study the "GM-estimate" of Denby and Martin 
[Ref. 9, p. 141]. Other non-Normal distributions can also be investigated. Given 
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sufficient time, these simulations can be carried further, in terms of sub-sample sizes, and 
number of super-replications. Finally, there are probably other esoteric estimators of 
serial correlation in the literature which could be studied, as this is an important field in 
which to conduct research. 
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APPENDIX A. USER'S GUIDE TO SIMTBED, A SIMULATION TEST 

BED 



A. OVERVIEW. 

The simulation test bed program used in this thesis, SIMTBED, is designed to aid 
in the assessment of the distributional properties of any user-supplied statistical estima- 
tor based on i.i.d random variables or on time series. It is a FORTRAN subroutine, and 
provides analysis of estimators at various sample sizes. It controls the user-provided 
generating routines so that the estimator can be computed many times to study its dis- 
tribution, moments (through the 4th central moment), and the variability of the esti- 
mates of these values. A regression model for the mean and variance can also be 
constructed. In general, any statistical simulation provides voluminous output, and this 
approach is designed to compactify the output and make the important features appar- 
ent. Graphic displays of the behavior of the user estimators is accomplished using line 
printer graphics, and the system is designed for the IBM personal computer family of 
computers. Output consists of a series of plots for each estimator (box plots, percentile 
plots, normalized quantile plots), summary tables for super- replications, a combined 
boxplot graph for all estimators, and optionally bivariate histograms for pairs of up to 
three estimators. If known values of the estimators are provided, the mean squared error 
from these known values can be obtained. 

1. History. 

SIMTBED began in 1981 with a mainframe version by Lewis, Orav, and Uribe. 
The first personal computer version was presented in a thesis by Hans-Walter Drueg, 
based on the regression adjusted graphics and estimation methodology of Lewis and 
Heidelberger. It has subsequently been moved to the IBM PC, and modifications in- 
clude: 

• A capability for super-replications to estimate the variability of the estimates of the 
quantiles, moments, and regression parameters. 

• A restart capability for building super-replication simulations over time using files. 

• Use of files to capture super-replication output for further processing by other 
systems. 

• Bivariate histograms. 

• Most recently, the use of color to compare the estimators with each other in the 
same plot. 
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This work reflects changes in data processing technology, and is largely the re- 
sult of work by P.A.W. Lewis, E.J. Orav, and L. Uribe, while the most recent additions 
to the system were added as part of this thesis by the author. The remainder of this 
appendix consists of a discussion of the features of SIMTBED, and how it is used. 



B. FEATURES OF SIMTBED. 

In order to use SIMTBED, the user must supply the driver, a program which sets 
the parameters (listed below) and calls SIMTBED, and the estimator routines, which 
take a random number seed and sample size, and generate one result which is the esti- 
mator, based on the sample size. These are referred to as sub-sample sizes, for the fol- 
lowing reason. 

1. Sample Sizes. 

SIMTBED takes a global sample size, N, (5000, for example), and then sections 
it according to various subsample sizes NE(), and calls the estimator routine(s) the ap- 
propriate number of times. In this way multiple evaluations of the estimator are ob- 
tained. If the subsample size were 100, and N were 5000, then 50 evaluations of the 
estimator, based on a sample size of 100 would be obtained. This process can be repli- 
cated up to 100 times, through M. the number of replications, so for example, if N is 
5000, and NE is 50, and M is 20, then 2000 evaluations of the estimator will be gener- 
ated. Up to eight different subsample sizes can be specified, and will be used for each 
of up to five estimators. These evaluations of the estimator are stored in an array, and 
SIMTBED will obtain statistics from them. The array must hold at least 
(N x M)/XE(1), where NE(1) is the first, and smallest subsample size. The subsample 
sizes are in increasing order, which is conducive to the graphing process. 

2. SIMTBED Estimator Statistics. 

SMTB computes the mean of the stream of estimators, for each subsample size. 
Also, the standard deviation is computed using n-1 weighting. The standard error of the 
mean is computed, as ajjn. The mean squared error (MSE) is optionally estimated 
using the formula 

MSE = yj (VAR + (A - VMSE) 2 ) (A - 1) 

where VMSE is the known input value of the estimator, again for each subsample size. 
The coefficients of skewness and kurtosis are also computed, using unbiased expressions. 
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3. Graphs. 

a. Boxplots. 

A boxplot graph is generated for each estimator, depicting boxplots for each 
subsample size, showing the mean, median, inter-quartile range, and outlier information. 
The vertical scale can be set by the user, or SIMTBED will scale the graph according to 
the largest values encountered. The graphs can be fixed to all have the same scale, or 
each can be scaled individually. The boxplots can be reduced. That is, the outliers are 
reported as a numeric count at the tail of the boxplot instead of representing each by a 
separate symbol. This is often necessary for highly variable estimators. If super- 
replications are being performed, up to three such plots for each estimator can be ob- 
tained. 

b. Quantiles. 

A plot of eleven quantiles is prepared next. They are depicted in the plot, 
as well as tabulated below the graph. The lag one serial correlation (moment estimator) 
is also listed. A normalized quantile plot is also available. 

c. Other Plots. 

If requested, bivariate histograms for the pairwise combinations of the first 
three estimators can be obtained to graphically assess relationships between the different 
estimators. One plot is prepared for all the subsample sizes, giving the possibility of 24 
histograms if the full complement of subsample sizes is prepared. The bivariate 
histogram also lists four measures of association: covariance, correlation coefficient, 
Spearman's rank correlation coefficient, and Kendall's tau coefficient. Five tests for 
equidistribution are included: Kolmogorov-Smirnov, Wald-Wolfowitz, Mann- Whitney, 
Wilcoxson, and Siegel-Tukey tests. The overall univariate statistics are also reproduced 
with these plots: mean, median, variance, standard deviation, range, etc. 

d. Combined Estimator Boxplots. 

Finally, a graph of selected boxplots for all estimators together can be ob- 
tained, so the relations between them at various sample sizes can be better studied. If 
a color printer is available, each estimator will have a different color. Up to three of the 
subsample sizes can be plotted, for up to five estimators, all on the same graph. If re- 
gression is being performed, the asymptote lines will be included, in the appropriate 
color for each estimator. These regression lines are merely reproductions of the full re- 
gression SIMTBED performed when the estimators were simulated, and are based on the 
original SIMTBED regression. No additional simulation or computation is required to 
produce these combined plots. 
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4. Regression. 

The regression performed by SIMTBED follows the methodology developed by 
Heidelberger and Lewis (see the body of the thesis, Chapter 3, Section B.). Regression 
is performed on the mean of estimates using the data from the subsample sizes according 
to the equation: 



E[ej-0 + (-If) + (-^r) + (-^y) + ••• (A ~ 2) 

m m 

the degreee of regression is the number of terms of the equation used. In equation (2), 
6 is the regression estimate of the estimator. This regression, is performed for each rep- 
lication (M), and with these independent data points, the variance and standard devi- 
ation of the coefficients of equation (2) can be estimated. These equation coefficients 
are reported with the standard boxplot graphs SIMTBED produces. 

The regression for the variance of the estimator is performed once, using all 
M*N data points, according to the equation 

Var[0 m ] = + ( fj~) + (— 7 ) + ( 7 ?) + — (4 — 3) 

m m m 

These coefficients are also reported in the plot summary. 

5. Super-replications. 

The simulation process just described can be wholly repeated many times, re- 
ferred to as super-replications. This makes it possible to get precision information, in 
the form of standard deviation, for all the statistics SIMTBED computes, instead of just 
the regression adjusted estimate of the mean of the estimator distribution. With super- 
replications, averages and standard deviations are available for all the moments, the se- 
rial correlation of the replications, and all eleven quantiles for all the subsample sizes, 
and the regression coefficients as well. If specified, individual run boxplot graphs and 
quantile plots can be obtained for the first three super-replications, or only for the first. 
These super-replication summary statistics can be stored in a file in tabular form for 
further processing by any number of other means, or for archival purposes. 

Since the performance of super-replications can be quite time-intensive, 
SIMTBED has the capability to write the parameters and summary data to a file for 
super-replications so far performed, and will then restart from where it left off, producing 
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more super-replications on the same simulation. In this way, the precision needed can 
be achieved piecewise, at the convenience of the user. 

6. Random Number Generation. 

Since statistical simulation is dependent on the production of pseudo-random 
numbers, SIMTBED makes available routines for generating several common distrib- 
utions of random variables. Among these are uniform, normal, Laplace, Cauchy, 
gamma, Pareto, beta, geometric, Poisson, and binomial random variables. These ran- 
dom number generators are based on the well tested uniform random number generator 
LLRANDOM II. These random number generators are linked with the SIMTBED 
subroutines after compilation, and the user can thus use any linker/library utility to in- 
sert or remove any of these routines, or add new random number generators (i.e. IMSL) 
at will. 

C. USE OF SIMTBED. 

To use SIMTBED you must write a FORTRAN program which has a CALL 
statement to the SIMTBED subroutine. This is called a driver program, and your driver 
must do several things for SIMTBED to operate properly. An example driver is included 
as figure 1. The driver must do the following: 

• Initialize and set appropriate values for the arguments of SIMTBED (see Table 1). 
This is done through the REAL, INTEGER, DATA, and direct assignment 
FORTRAN statements. 

• Declare the scratch array of the correct size for SIMTBED to use. This size is de- 
termined as N * M / N’E(l), since NE(1) is the smallest sample size, and will result 
in the largest number of evaluations of your estimator. 

• Declare as EXTERNAL the names of the estimator routines provided to 
SIMTBED. 

1. SIMTBED Arguments. 

The argument types for SIMTBED are listed below, along with their function 
and possible values. In general, the names used here are not required, but they must 
match in variable type and position in the calling statement, and the arrays must be of 
the correct dimension. For example, NCOLRNDX is not required to be named as such, 
but it must be an INTEGER(3) array, and be in the proper order in the argument list 
of the calling statement. 

2. Calling Statement. 

The calling statement to invoke SIMTBED is: 
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CALL SIMTBED(ISEED1,ISEED2,ISEED3,ISEED4,ISEED5,Y,N,M,NE, 
*L,D,NSR,RG,SEI,SVS,YMIN,YMAX,NEST,GEST1,TTL1,GEST2,TTL2, 
*GEST3,TTL3,GEST4,TTL4,GEST5,TTL5,IFIL,NPRT,MSE,VMSE,IPR, 
*VMXl,VMX2,VMX3,VMX4,VMX5,IBIV,RSTRT,ICOLOR,IBWPRT,NCPRT, 
* NCOLRNDX) 

3. Estimator Routines. 

The user must also provide a number (up to five) of estimator subroutines to 
SIMTBED, for generating the random numbers and the estimator, based on the sample 
size. The argument list of the estimator routine must have the following structure (the 
name is up to the user, of course): 

SUBROUTINE GEST1(ISEED,N,EVAL) 

where GEST1 is the declared EXTERNAL name, ISEED is a REAL*8 (double preci- 
sion) number for the random number seed, N is an INTEGER sample size to use, and 
EVAL is a REAL*4 result, the estimator evaluated based on sample size N. Within the 
routine the user is free to do anything necessary to generate the random process and 
obtain the estimator (could even be non-random nature). It is common to have calls to 
random number generators and some follow-on calculations (for example, obtaining the 
fourth moment of standard normal random numbers). It is often of interest to determine 
how many times this user routine will be called. The value N will be each NE(I) in se- 
quence, so the number of calls to this subroutine will be N * M / NE(I), for each sub- 
sample size. This is why the Y array is required to be at least a certain size. It holds the 
results from the calls to this routine. Notice there is no provision for other parameters 
to be passed to the estimator routine. If the user wishes to parameterize the estimator 
routines through the driver program (useful for complicated and related estimators), 
COMMON storage is available for this purpose. SIMTBED does not use any COM- 
MON storage. 

4. Files. 

SIMTBED has the ability to use three files in addition to the console (UNIT 
5). These are for normal output (UNIT 6), restart operations (UNIT 2), and super- 
replication recording results (UNIT 1). Each of these files is used in a different way. 
They are all created with the OPEN statement. The UNIT 6 file will contain carriage 
control characters for visual display devices (printers, CRTs), and can be a file, or an 
actual unit. We recommend using a file to prevent a printer error from causing a pro- 
gram interrupt and loss of data. If a file is used it must be printed with respect given to 
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the carriage control characters, or the plots will not be correct (the DOS PRINT com- 
mand suffices nicely). For example 

OPEN(06,FILE= RESULTS. TXT', FORM = 'FORMATTED') 

where ACCESS of SEQUENTIAL is the default and not specified. Also, no error han- 
dling is present in this example. The file used for output of super-replications is also of 
type FORMATTED, but is written to UNIT 1, and has no carriage control characters 
imbedded. The result is a normal ASCII file that can be read by any text editor. The 
file used for restart is different, however. Using UNIT 2, this file is UNFORMATTED, 
and can only be read by another FORTRAN program. Since type FORMATTED is the 
default for sequential files, the user must give this specific declaration in the OPEN 
statement, or an error will occur. For example, 

OPEN(02,FILE= START.DAT', FORM = UNFORMATTED', ACCESS = 
'SEQUENTIAL') will cause the correct file type to be created. The data in this 
file is written in internal storage form, and is inaccessible to the user. 

5. Using Random Numbers. 

The random number generators available in SIMTBED are based on the uni- 
form random number LLRANDOMII, as mentioned earlier. What will be listed here 
is the CALL statement and arguments required to generate a random variable stream, 
and the form of the variables generated. For all the calls, DSEED is a REALMS seed, 
N is the number of variables generated, and X is a real array of size at least N, con- 
taining the random numbers after the call. 

• For uniform random numbers, use CALL LRNDPC(DSEED,X,N) to obtain uni- 
form [0, 1] random numbers. 

• For normal random numbers, use CALL LNORPC(DSEED,X,N) to obtain 
standard normal random numbers. 

• For Laplace random numbers, use CALL LLAPPC(DSEED,X,N) to obtain 
Laplace random numbers with mean 0 and standard deviation SQRT(2). 

• For Cauchy random numbers, use CALL LCHYPC(DSEED,A,N) to obtain 
Cauchy random number with location 0 and scale 1 

• For Gamma random numbers, use CALL LGAMPC(DSEED,X,N,K) to obtain 
Gamma random numbers with shape K and scale 1. Transform to Gamma(k,b) 
by dividing by b. 

• Pareto random numbers are available by the statement CALL' 
LPARPC(DSEED,X,N,A) W'here A is the shape parameter of the Pareto distrib- 
ution. 
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• Beta random numbers are obtained with CALL LBETPC(DSEED,X,N,P,Q) where 
P and Q are the parameters of the Beta distribution. 

• Geometric (discrete) random variables are available with CALL 
LGEOPC(DSEED,A,N,P) where P is the parameter of the geometric distribution. 

• Generate Poisson random variables with CALL LPOIPC(DSEED,A,N,U) where 
U is the mean of the desired distribution. The method used to generate these var- 
iables uses a table lookup, and requires some front end 'overhead' to set up. For 
best efficiency, generate as many variables as possible at one time. 

• To generate Binomial random numbers, CALL LBINPC(DSEED,X,N,NIND,P) is 
required. NIND is an INTEGER, for the parameter number of trials. P is the p 
parameter for the binomial distribution. 

• For random variables other than those listed here, or that cannot be obtained 
through some transformation, the user must provide the routine to generate them, 
usually starting with a call to LRNDPC. 

6. Running SIMTBED. 

In general, to run a driver with SIMTBED, the driver must be compiled and 
linked with the SIMTBED library. For most compilers there is an option for large ar- 
rays. This should be used if the dimensions of the Y array are large. The reader is re- 
ferred to the body of the thesis for examples of SIMTBED output. 

D. SIMTBED ARGUMENTS AND PARAMETERS. 

1. ISEED1, ISEED2, ISEED3, ISEED4, ISEED5. DOUBLE PRECISION 
(REAL*8) reals. These are the seeds used to start the random number streams 
used by SIMTBED. Using the same seed will produce the same results. Use the 
same number for the seed to get the same random numbers for each estimator. 

2. Y. REAL*4 array. The scratch array used by SIMTBED to carry the results of 
your estimator when called. 

3. N. INTEGER. The "global" sample size. 

4. M. INTEGER. The number of replications of each subsample size to perform. 
M cannot exceed 100. 

5. NE. INTEGER array of size 8. The subsample sizes for SIMTBED to use. Must 
be in ascending order. If less than 8 are used, pad with zeros. 

6. L. INTEGER. The number of subsample sizes to use. Must be between 1 and 

8 . 

7. D. INTEGER. The degree of regression (number of terms in regression equation). 
Can be from 1 to 6. If there are not enough subsamples (D < = L - 1) to establish 
the regression, SIMTBED will lower the degree of regression specified in the call. 
Using D = 0 will suppress the regression. 

8. NSR. INTEGER. Number of super- replications to perform. Must be at least one. 
If only one super-replication is used, no summary will be generated. 
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9. RG. INTEGER. Reduced Graphics. 1 = Yes. 0 = No. In reduced graphics, 
SIMTBED will put the number of outliers at the end of the boxplot instead of 
plotting each one. This makes the scale of the plot closer to the interquartile range, 
and thus easier to interpret for highly variable estimators. 

10. SET INTEGER. Scale Estimators Individually. 1 = Yes. 0 = No. When set 
to zero, plots for all estimators will have the same scale (the max of the set of es- 
timators). This is required for color combined plots, so if color is selected, this flag 
will be reset. 

11. SVS. INTEGER. Set Vertical Scale. 1 = Yes. 0 = No. IfSVS = 1, the user 
will set the vertical scale with the values YMIN and YMAX. Otherwise, 
SIMTBED determines these values. 

12. YMIN. REAL. Minimum y axis value for SVS = 1. 

13. YMAX. REAL. Maximum y axis value for SVS = 1. 

14. NEST. INTEGER. Number of Estimators. Must be between 1 and 5. The ap- 
propriate arguments for the number of estimators must be defined. Otherwise, 
dummy arguments can be used (ISEED, GEST, TTL, VMX). 

15. GEST1, GEST2, GEST3, GEST4, GEST5. EXTERNAL. These are the names 
of the estimator routines, passed to SIMTBED in the calling statement. For un- 
used estimators, duplicate the defined names. 

16. TTL1, TTL2, TTL3, TTL4, TTL5. CHARACTER* 120 (max). A label of the es- 
timator routine, to be placed on the plots. 

17. IFIL. INTEGER. 1 = Yes. 0 = No. Yes will write the super-replication sta- 
tistics to the file declared on UNIT 1, for further processing. This is a formatted 
ASCII file. 

18. NPRT. INTEGER. Print Detail. 1 = Yes. 0 = No. Yes will print full plots for 
the first three super-replications, and normalized quantile plots in addition to the 
standard quantile plots. No will print full plots only for the first super- replication. 
Regardless, the information for the color combined plots comes from the first 
super-replication. 

19. MSE. Mean Squared Error. INTEGER. 1 = Yes. 0 = No. Yes will compute 
the mean squared error of the estimator at each sample size from the user input 
known values. No ignores the user input known values. 

20. VMSE. Vector of Mean Squared Error. REAL array (8,5). 

The known values of each estimator at each subsample size, for SIMTBED to 
compare with the generated results, based on MSE flag. Initialize to zeros for un- 
used portions of this array. 

21. IPR. Print Percentile Plots. 1 = Yes. 0 = No. Yes will cause SIMTBED to 
count the frequency of occurrence where the evaluated estimator is less than each 
of four specified values (the percentiles), for each subsample size. These are then 
converted to probabilities, and a plot is produced. 

22. VMX1, VMX2, VMX3, VMX4, VXM5. REAL array (8,4) each. These are user 
supplied values for the percentile plot calculations. SIMTBED will obtain the fre- 
quency that the estimator is less than each value and prepare a percentile plot. 
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23. IBIV. INTEGER. Bivariate Histograms. 1 = Yes. 0 = No. Yes causes 
bivariate histograms to be produced for each combination of the first three esti- 
mators, at each subsample size. 

24. RSTRT. Restart. INTEGER. 1 = Yes. 0= No. Yes results in a SIMTBED 
write to the file on UNIT 2 of the super- replication final results, so that the sim- 
ulation can be continued from this point later. For subsequent runs, Yes causes 
the file on UNIT 2 to be read, and the parameters checked for agreement. Proc- 
essing continues with the next super-replication. For example, if 3 is used for NSR, 
then using 8 for the next run for NST will cause 5 more super- replications to be 
performed. Using a value for NSR for a later run less than that used on an earlier 
run causes a message to be displayed and processing stops. 

25. ICOLOR. INTEGER. Color Combined Printing. 1 = Yes. 0 = No. Yes causes 
combined boxplots of all the estimators to be produced. The subsample sizes used 
are determined by another array. SEI is set to 0. Printer control codes to set colors 
for standard IBM dot matrix printers are used to print each estimator in a different 
color. On non-color printers these codes are ignored. 

26. IBWPRT. INTEGER. Standard Printing. 1 = Yes. 0 = No. '"l es causes the 
standard printing of boxplots for each estimator in sequence. No suspends this 
printing for brevity. Bivariate histograms and super-replications summary’ plots 
will still be generated. This is used in conjuction with the ICOLOR flag to produce 
output which will consist of only the color combined plot. This way, if the exper- 
imenter in only interested in obtaining this plot, he will not have to print all the 
previously generated plots to obtain it. (This actually came about as an aid during 
development of the color features.) 

27. NCPRT. INTEGER. Number of clusters to print. Must be between 1 and 3. 
This is the number of subsample sizes for which to print combined boxplots. 

28. NCOLRNDX. INTEGER array, size 3. Each entry must be between 1 and 8, in 
increasing order. Do not duplicate entries. This specifies which of the subsample 
sizes are used in the combined plots. For example, DATA NCOLRNDX/2,3.4/ 
will cause SIMTBED to use the second, third, and fourth subsample sizes in the 
combined plots. 



This concludes the discussion of SIMTBED. 
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APPENDIX B. METHOD USED TO PROGRAM COLOR COMBINED 

BOXPLOTS IN SIMTBED 



A. INTRODUCTION. 

This appendix describes the programming approach I used to incorporate the fea- 
tures we wanted into SIMTBED, which took approximately three months of analysis 
of the SIMTBED program and its approach to statistical simulation. There were four 
basic aspects involved in incorporating color printing into SIMTBED: 

• Understand the architecture and organization of the existing SIMTBED package. 

• Understand the method of producing graphics with line printers and dot matrix 
printers (line printer graphics). 

• Understand how color printers are controlled (changing their colors, etc.). 

• Determine the approach to placing the color boxplots together to produce the 
complete plot. Spacing, choice of color, and graph features to be included were all 
considerations. 

Each of these will be discussed in turn. 

B. SIMTBED ARCHITECTURE. 

SIMTBED, version 13, has 21 subroutines, including two added by this author to 
control the color dot matrix printers. Most of the subroutines are involved with com- 
puting statistics, regression, percentiles, and other numerical interests, and so are not of 
direct interest here. The starting subroutine, SIMTBED, calls the subroutine PRST 
once for each estimator being processed, and PRST is the routine that conducts the 
sectioning, calls the generator routines, obtains the statistics, and prepares the plots. 
This routine is where the color plotting preparation has to occur, although it will be 
printed in SIMTBED, since the color plot is not complete until all the estimators have 
been processed. PRST makes use of two important subroutines in constructing plots: 
BOXPRT, which puts a boxplot in a specified place in a plot array (given the appropri- 
ate statistics, of course), and NUMPRT, which puts an integer value into the plot array 
in the specified location. The color plotting routine will use both of these. 

C. LINE PRINTER GRAPHICS. 

/ 

Using character printing devices to generate plots is not a complicated concept. The 
line print (or dot matrix printer) is normally a character oriented device, and can be used 
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to create plots. The difficulty lies in determining the position of the points to be plotted. 
Once the position is determined, the appropriate character is simply printed. The ap- 
proach to this method is to use a character matrix, a two-dimensional array of charac- 
ters. The row is then the x axis, and the column is the y axis. Then, all the (x, y) pairs 
of points are scaled such that they run between zero and the dimension of the array. In 
SIMTBED, the dimensions are 132 spaces across and 50 vertical spaces. The dot matrix 
printer is used in compressed type mode, to make maximum use of the limited resolution 
it has compared to other graphic devices. For these purposes, line printer graphics work 
quite well. 

The color plotting approach to line printer graphics uses the same approach, except 
there is a three dimensional character array: the first two dimensions represent the row 
and column of the plot, and the third dimension represents the color being plotted. 
Thus, there is one complete character array for each color to be plotted. When a char- 
acter is to be plotted in a specified color, it is stored in that 'sheet' of the character array. 
Then, when printing is to occur, each line is printed the number of times corresponding 
to the number of colors before moving on to the next line. 

D. COLOR PRINTERS. 

I found that there is in fact a eood deeree of standardization in the commands used 
by different color printers. These commands consist of special escape code sequences 
to change the printer color (the escape character, the lower case 'r',and a numeric color 
code). This suggested a simple subroutine that would accept a number representing the 
color, and would set the printer (FORTRAN UNIT 6) to that color, using the escape 
code sequence. The other subroutine added merely initialized the three-dimensional 
color character array to all blanks. 

E. DETERMINING THE COLOR PLOTTING. 

Having determined the SIMTBED approach to line printer graphics, and the ap- 
proach to the new color printers, it remained to choose a good way to display the color 
plots. How many subsample sizes? How should they be spaced? How much of the re- 
gression lines could be included before the plot became too cluttered? These issues were 
addressed through experimentation. Along the way, it was easily possible to increase the 
number of estimators SIMTBED could process from three to five. With five estimators, 
we found that more than three subsample sizes could result in twenty boxplots being 
plotted together in one plot. This was the limit. We restricted the number of subsample 
sizes for color combined boxplots to three, and with five estimators this proved to be 
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reasonable, if the subsample sizes are spread out. If they are not, but are closely ar- 
ranged, then the scaling of the regression line, when plotted, will be incorrect. Because 
of this, and the clutter in the plot for different regression lines for different estimators, 
we removed the regression line from the color plots. The asymptote was kept, though, 
as it did not clutter the graphs terribly. This is the new current version of SIMTBED 
for the personal computer. 
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APPENDIX C. SAMPLE SIMTBED DRIVER ROUTINES 



1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 



SIMTBED DRIVER FOR NORMAL AR(1) RANDOM VARIABLES RST 

SMTB12 RST 

REAL*4 Y( 6500) , YMIN , YMAX, V(8),RH0 

CHARACTER*! 20 T1 ,T2 ,T3 ,T4 ,T5 RST 

REAL*8 1X1, 1X2, 1X3, 1X4, 1X5, IX 

INTEGER N, M, NE(8), L, D, RG, SEI, SVS, NEST,NCOLRNDX( 3) RST 

EXTERNAL • NAR3 , NCRES 1 , NPRIES , NROBUS 

REAL VMSE( 8,5), VMX1(8,4) ,VMX2(8,4) ,VMX3(8,4) ,VMX4(8,4) ,VMX5(8,4) RST 
COMMON RHO 

RST 

N/6000/ 

M/ 20/ 

NE/ 20,60,100,150,200,250,350,500/ 

L/ 8/ 

RST 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



D/ 4/ 

RG/ 1/ 

SEI/ 0/ 

SVS/ 0/ 

YMIN/ 0. / 

YMAX/ 0. / 

IX/ 88771. DO/ 

IFILE /l/ 

NPRT /0/ 

MSE / 1/ 

VMSE / 32*. 9,8*0/ 

IPR /0/ 

IBIV /0/ 

IRSTR / 1/ 

T3/ ' **Rho of N( 0 ,4) 
T2/ 1 **Rho of N( 0 ,4) 
' f es estimator'/ 

DATA T4/ ' **Rho of N(0,4) 



RST 

RST 

RST 

RST 

RST 

RST 

RST 

RST 



T5/ ' **Rho of N( 0 ,4) 



r.v. s, rho=0. 9 using moment estimator'/ 
r.v. s, rho=0. 9 using robust Least Squar 

r.v. s, rho=0. 9 using Cressie estimator 

r.v. s, rho=0. 9 using Priestly Estimator 



RST 



C ’/ 

DATA 

*' j 

DATA ICOLOR/1/ IBWPRT/1/ NCPRT/3/NCOLRNDX/l,2,7/ 

OPEN( 06 ,FILE=' NA1. OUT' ,ERR=999 , IOSTAT=IER) 

OPEN( 05 ,FILE=' CON ' ,ERR=999 , IOSTAT=IER) 

OPEN(02,FILE='NA1. RST' , ERR=99 9 , IOSTAT=IER,FORM=' UNFORMATTED' , 
C ACCESS=' SEQUENTIAL' ) 

OPEN(01,FILE='NA1. DAT' ,ERR=999 , IOSTAT=IER,FORM=' FORMATTED' , 

C ACCESS=' SEQUENTIAL' ) 



43 C 


--- GENERATOR PARAMETERS 


RST 


44 


NEST=4 




45 


NSR=8 




46 


RHO=0. 9 




47 C 




RST 


48 


IX1=IX 


RST 


49 


IX2=IX 


RST 


50 


IX3=IX 


RST 


51 


IX4=IX 
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IX5=IX 



52 

53 C 



CALL SIMTBED(IX1,IX2,IX3,IX4,IX5,Y,N,M,NE,L,D,NSR,RG,SEI,SVS, 

* YMIN, YMAX , NEST , NROBUS , T2 , NCRES 1 , T4 , NAR3 , T3 , NPRIES , T5 , NAR3 , T3 , 

* IFILE 

* , NPRT , MSE , VMSE , I PR , VMX1 , VMX2 , VMX3 , VMX4 , VMX5 , I B I V , I RSTR , I COLOR , 

* I BWPRT , NCPRT , NCOLRNDX ) 

STOP 

CONTINUE 

WRITE( 6 ,*) ’ ****** ERROR OPENING FILE 1, 2 or 6 ' 

END 

WARNINGS IN PROGRAM UNIT: 0 
ERRORS IN PROGRAM UNIT: 0 

INCLUDE 'ARl.FOR' 

SUBROUTINE AR1(IX,X,N) 

68 C THIS SUBROUTINE GENERATES THE NORMAL AR1 PROCESS, WITH CORR COEF 

69 C RHO, MEAN 0, AND STDDEV 1 

70 REAL*8 IX 

71 REAL*4 X(*),RHO 

72 COMMON RHO 

73 CALL LNORPC( IX,X,N+1) 

74 X(l)=RHO*X(N+l)/SQRT(l-RHO*RHO) + X( 1)*SQRT( l-RHO*RHO) 

75 C WRITE(5,*)'X(1): ',X(1) 

76 DO 100 1=2, N 

77 X(I)=RHO*X(I-l) + X(I)*SQRT(l-RHO*RHO) 

78 100 CONTINUE 

79 RETURN 

80 END 



NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 

81 INCLUDE 'NAR3.FOR' 

82 SUBROUTINE NAR3( IX,N,EVAL) 

83 C LAG 1 SERIAL CORRELATION OF NORMAL (0,1) R. V. S , RHO=0. 9 

84 C USING XBAR TO ESTIMATE MU 

85 C RHO OF THE AR1 PROCESS IS PASSED TO THE 

86 C GENERATOR AR1 THROUGH COMMON STORAGE 

87 REAL* 8 IX 

88 REAL*4 X( 600), MEAN 

89 COMMON RHO 

90 CALL AR1( IX,X,N) 

91 SUM=0 

92 SUM1=0 

93 DO 1 1=1, N 

94 1 SUM=SUM+X( I ) 

95 MEAN=SUM/N 

96 SUM=0 

97 DO 2 1=2, N 

98 SUM=SUM+( X( I ) -MEAN)*( X( I - 1 ) -MEAN) 

99 2 SUM1=SUM1+(X( I ) -MEAN)**2 



55 C 

56 

57 

58 

59 

60 
61 

62 C 

63 999 

64 

65 

NUMBER OF 
NUMBER OF 



66 

67 



RST 



RST 



RST 

RST 
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100 


EVAL=SUM/SUM1 




101 c 


WRITE(5,*)’SER. COR = ’ ,EVAL 




102 


RETURN 




103 


END 




NUMBER 


OF WARNINGS IN PROGRAM UNIT: 0 




NUMBER 


OF ERRORS IN PROGRAM UNIT: 0 




104 


INCLUDE 1 NCRES1. FOR 1 




105 


SUBROUTINE NCRES1( IX, N ,EVAL) 




106 C 


COMPUTES THE LAG 1 CORR COEFF ESTIMATOR USING THE 


CRESSIE FORMULA 


107 C 


THE NORMAL AR1 PROCESS HAS RHO PASSED BY 




108 C 


COMMON STORAGE. 




109 C 


USES FUNCTION AMEDI TO GET THE 




110 C 


MEDIAN. 




111 


INTEGER N 




112 


REAL* 8 IX 




113 


REAL*4 X( 600), MEAN, MEDIAN 




114 


COMMON RHO 




115 


CALL AR1( IX,X,N) 




116 


SUM1=0 




117 


SUM2=0 




118 


MED I AN=AMED I ( X , N ) 




119 C 


WRITE(5,*)’ MEDIAN = MEDIAN 




120 C 


WRITE(5 ,*) ' X( I) ' ,(X(I),I=1,N) 




121 


DO 1 1=1 ,N-1 




122 


SUM1=SUM1+SQRT(ABS(X( I) -X( 1+1) ) ) 




123 1 


IF( ABS(X( I ) -MEDIAN). GT. 0)SUM2=SUM2+SQRT( ABS(X( I ) -MEDIAN) ) 


124 


EVAL=l-( ( (SUMl/SUM2)**4)/2) 




125 C 


WRITE(5,*)’ CRESS = ’ ,EVAL 




126 


RETURN 




127 


END 




NUMBER 


OF WARNINGS IN PROGRAM UNIT: 0 




NUMBER 


OF ERRORS IN PROGRAM UNIT: 0 




128 


FUNCTION AMEDI (X,N) 




129 C 


THIS ROUTINE USES A SHELLSORT AND INDEXES INTO THE 


REAL ARRAY X TO 


130 C 


THE MEDIAN OF X WITHOUT REARRANGING IT. 




131 C 


THE INDEXES ARE USED AS INTEGER*2 TO CONSERVE STORAGE. 


132 


REAL*4 X(*) 




133 


INTEGER* 2 I , INDX( 600) 




134 


INTEGER N 




135 


DO 1 1=1, N 




136 1 


INDX( I )=I 




137 C 


WRITE( 5,*) 'UNSORTED LIST: ' , (X( INDX( I) ) , 1=1 ,N) 




138 


CALL SRTNDX(X,N, INDX) 




139 C 


WRITE( 5,*)' SORTED LIST: ' , (X( INDX( I) ) , 1=1 ,N) 




140 


IF(M0D(N,2). EQ. 0)THEN 




141 


AMEDI=(X(INDX(N/2))+X(INDX(N/2+l)))/2 




142 


ELSE 




143 


AMEDI=X( INDX(N/2+l) ) 




144 


ENDIF 




145 


RETURN 




146 


END 
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NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 



147 SUBROUTINE SRTNDX( Y,N, INDX) 

148 C INPLACE SORT USING SHELL ALGORITHM ******** SMT 

149 C USES INDEXES TO SORT BY TO PRESERVE ORIGINAL ORDER OF Y ARRAY 



150 




REAL Y(*) 






151 




INTEGER*2 GAP , INDX(*) , ITEMP 






152 




INTEGER N 






153 




LOGICAL EXCH 




SMT 


154 


C 






SMT 


155 




GAP=(N/2) 




SMT 


156 


5 


IF (.NOT. (GAP.NE. 0)) GO TO 500 




SMT 


157 


10 


CONTINUE 




SMT 


158 




EXCH=. TRUE. 




SMT 


159 




K=N-GAP 




SMT 


160 




DO 200 1=1, K 




SMT 


161 




KK=I+GAP 




SMT 


162 




IF( . NOT. CYC INDX( I) ). GT. Y( INDX(KK) ) ) ) 


GO TO 100 




163 




ITEMP=INDX( I) 






164 




INDX(I)=INDX(KK) 






165 




INDX(KK)=ITEMP 






166 




EXCH=. FALSE. 






167 


100 


CONTINUE 






168 


200 


CONTINUE 




SMT 


169 




IF (.NOT. (EXCH)) GO TO 10 




SMT 


170 




GAP=(GAP/2) 




SMT 


171 




GO TO 5 




SMT 


172 


500 


CONTINUE 




SMT 


173 




RETURN 




SMT 


174 




END 




SMT 


NUMBER OF 


WARNINGS IN PROGRAM UNIT: 0 






NUMBER OF 


ERRORS IN PROGRAM UNIT: 0 






175 




INCLUDE ' NPRIES. FOR 1 






176 




SUBROUTINE NPRIES( IX,N,EVAL) 






177 


C COMPUTES THE LAG 1 CORR COEFF ESTIMATOR USING 


THE PRIESTLY FORMULA 




178 


C THE NORMAL AR1 PROCESS HAS RHO PASSED BY 






179 


C COMMON STORAGE. 






180 




REAL*8 IX 






181 




REAL*4 X( 600) , MEAN , A , B , XB AR 1 , XB AR2 , MUHAT , 






182 




*SUM1,SUM2 






183 




COMMON RHO 






184 




CALL AR1( IX,X,N) 






185 




A=0 






186 




B=0 






187 




XBAR1=0 






188 




XBAR2=0 






189 




SUM 1=0 






190 




SUM2=0 






191 




DO 1 1=1, N-l 






192 




A=A+X( I)*X( I) 






193 




B=B+X( I)*X( 1+1) 






194 




XBAR1=XBAR1+X( I) 






195 


1 


XBAR2=XBAR2+X( 1+1) 
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196 C WRITE (5 ,*) * I: ' , I , ' X( I ) ' ,X( I) , ’ A: ’,A,’B: ' ,B , ’ XBAR1: ’ ,XBAR1 , ' XBA 

197 C *R2: ’ ,XBAR2 

198 XB AR 1=XB AR 1 / ( N - 1 ) 

199 XB AR2=XB AR2 / ( N - 1 ) 

200 MUHAT=(A*XBAR2-B*XBAR1)/((A-B)+((N-1)*XBAR1*(XBAR2-XBAR1))) 

201 DO 2 1=1 ,N-1 

202 SUM1=SUM1+(X( I) -MUHAT)*(X( 1+1) -MUHAT) 

203 2 SUM2=SUM2+( X( I ) -MUHAT) **2 

204 EVAL=SUM1 / SUM2 

205 C WRITE(5 ,*) ’ SUM1: ' , SUM1 , ’ SUM2: ' , SUM2 

206 C WRITE(5 ,*) ’PREISTLY MUHAT’ MUHAT 

207 C WRITE(5,*)'XBAR1: ' ,XBAR1, XBAR2: ’ ,XBAR2 

208 C WRITE(5,*)’A: ' ,A, ’ B: ’,B,’ N: ’ ,N 

209 C WRITE( 5 ,*) ’ X»»> ’ , (X( I ) , 1=1 ,N) 

210 C WRITE(5,*) 'PRIESTLY RHO: ' ,EVAL 

211 RETURN 

212 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 

NUMBER OF ERRORS IN PROGRAM UNIT: 0 

213 INCLUDE 'NROBUS.FOR' 

214 SUBROUTINE NROBUS(SEED,N,EVAL) 

215 C THIS ROUTINE GENERATES A STREAM OF R. V. S, AND THEN PERFORMS ROBUST 

216 C REGRESSION ON THEM TO ESTIMATE RHO. 

217 C THE CURRENT STREAM IS AR(1) NORMAL R. V. S. 

218 REAL* 8 SEED 

219 REAL*4 X( 600) , Y( 600) ,B( 1) ,XX( 1 , 1) ,XXI( 1 , 1) ,XY( 1 , 1) 

220 REAL*4 RMED1,RMED2,RMED3,SR1,SR2,SR3,SY,CR,W(600) ,U(600) 

221 REAL*4 WX( 600 , 1) ,WY( 600) ,EVAL 

222 INTEGER N,I,IN 

223 COMMON RHO 

224 DATA CY/1. O/CR/4. 2/CY/l. 0/ 

225 DATA NN/l/IPAS/5/ 

226 1X2=1 

227 CALL AR1(SEED,X,N) 

228 C CONSTRUCT X AND Y VECTORS FROM X ARRAY 

229 DO 1 1=1, N-l 

230 1 Y(I)=X(I+1) 

231 IN=N- 1 

232 IX1=IN 

233 CALL ROBREG(X,Y, B , IN,NN, 1X1 , 1X2 ,CR ,XX,XXI ,XY,W,U,WX,WY, IPAS) 

234 EVAL=B( 1) 

235 C WRITE (5,*) *EVAL: ’ ,EVAL 

236 RETURN 

237 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 

NUMBER OF ERRORS IN PROGRAM UNIT: 0 



238 SUBROUTINE ROBREG(X,Y,B ,M,N, 1X1 , 1X2, C , XX, XXI ,XY,W,U,WX,WY, IPAS) 

239 C ROBUST REGRESSION ON Y=X*B RRE 

240 C IPAS=MAX # REGRESSION PASSES. 1 FOR STD (I.E. NON-ROBUST) REGRESSION RRE 

241 C X=M BY N MATRIX CONTAINED IN AN ARRAY OF DIM(IX1,IX2) RRE 

242 C Y=M -VECTOR CONTAINED IN AN ARRAY OF DIM(IXl) RRE 

243 C B=N- VECTOR CONTAINED IN AN ARRAY OF DIM(IX2) RRE 
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244 


C 


XX 


,XXI=WORK ARRAYS OF DIM(IX2,IX2) 


RRE 


245 


C 


WJ 


U,WY=WORK ARRAYS OF DIM(IXl) 


RRE 


246 


C 


WX=W0RK MATRIX OF DIM(IX1,IX2) 


RRE 


247 


C 


XY ; 


=WORK ARRAY OF DIM(IX2) 


RRE 


248 


C 


WK : 


=WORK ARRAY OF DIM(N**2 + 3*N) OR LARGER 


RRE 


249 


C 


C=< 


CONSTANT. USUALLY = 6. 


RRE 


250 


C 


CRITERION FOR STOPPING IS WHEN VARIATION IN CONST. TERM < 1% 


RRE 


251 


C 


IT 


USES SEVERAL SUBROUTINES FROM IMSL FOR MATRIX INVERSION, 


RRE 


252 


C 




MULTIPLICATION, ETC. ALSO USES PXSORT TO SORT ARRAY. 


RRE 


253 






REAL*4 X( 1X1 , 1X2) ,XX( 1X2 , 1X2) ,XXI( 1X2 , 1X2) 




254 






REAL* 4 Y( 1X1) ,WK( 600) 




255 






REAL* 4 B( 1X2) ,W(IX1) ,XY(IX2) ,BB,WX(IX1,IX2) ,WY(IX1) 




256 






REAL* 4 U(IX1) ,C,S,AM,R,SS,SUM1 




257 






NPAS=0 


RRE 


258 






ZERO=0 


RRE 


259 


C 




SUPPRESS ERROR MESSAGES: UNDERFLOW AND IMSL 


RRE 


260 


C 




CALL ERRSET( 208 , 300 , *1,1) 


RRE 


261 


C 




CALL UERSET( 0 , LEVOLD) 


RRE 


262 






AM=(M+1. )/2. 


RRE 


263 






IM=AM 


RRE 


264 






R=AM-IM 


RRE 


265 






B(l)=-999999. 


RRE 


266 






DO 5 1=1 ,M 


RRE 


267 






WY ( I ) =Y ( I ) 


RRE 


268 






DO 6 J=1,N 


RRE 


269 






WX(I,J)=X(I,J) 


RRE 


270 




6 


CONTINUE 


RRE 


271 




5 


CONTINUE 


RRE 


272 


C 






RRE 


273 




10 


CONTINUE 


RRE 


274 






NPAS=NPAS+1 


RRE 


275 


C 




CALL VMULFM (WX , WX , M , N , N , 1X1 , 1X1 , XX , 1X2 , IER) 


RRE 


276 


C 


VMULFM PERFORMS X TRANSPOSE X. WE CAN DO IT WITH A DO LOOP, : 


SINCE 


277 


C 


IN THIS CASE X IS A VECTOR. RESULT GOES IN XX (DIM 1,1) 




278 










279 






XX(1,1)=0 




280 






DO 200 1=1, M 




281 


200 


XX( 1 , 1)=XX( 1 , 1)+WX( I , 1)**2 




282 






IER=0 




283 


C 




IF (IER. GT. 0) WRITE (6,109) IER 


RRE 


284 




109 


FORMAT( 'ERROR: ' ,2110) 


RRE 


285 


C 




CALL VMULFM ( WX , WY , M , N , 1 , 1X1 , 1X1 , XY , 1X2 , IER) 


RRE 


286 


C 


VMULFM PERFORMS MATRIX MULTIPLICATION. WE WILL DO IT WITH A 


DO LOOP 


287 


C 


SINCE X AND Y ARE VECTORS. RESULT GOES IN XY (DIM 1,1). 




288 






XY ( 1 ) =0 




289 






DO 201 1=1, M 




290 


201 


XY( 1 ) =XY( 1 ) +WX( I , 1 ) *WY( I ) 




291 






IER=0 




292 


C 




IF (IER. GT. 0) WRITE (6,109) IER 


RRE 


293 


C 




CALL LINV2F(XX,N, 1X2, XXI , ZERO, WK, IER) 


RRE 


294 


C 


LINV2F FINDS THE INVERSE OF A MATRIX (X TRANSPOSE X). WE WILL DO IT 


295 


C 


WITH A DO LOOP, SINCE X IS A VECTOR IN THIS CASE. RESULT INTO 


XXI. 


296 










297 






XXI(1,1)=1/XX(1,1) 


/ 


298 










299 


C 




IF (IER. GT. 0) WRITE (6,109) IER 


RRE 



116 



RRE 

RRE 



300 BB=B( 1) 

301 C CALL VMULFF( XXI, XY,N,N, 1,1X2, 1X2, B, 1X2, IER) 

302 C PERFORMING X TRANSPOSE X INVERSE TIMES X TRANSPOSE Y. RESULT INTO 

303 C B (DIM 1). DONE WITHOUT A SUB CALL IN THIS CASE, SINCE WE'RE 

304 C DEALING WITH VECTORS. 

305 B( 1)=XY( 1)*XXI( 1,1) 

306 

307 

308 C IF (IER. GT. 0) WRITE (6,109) IER RRE 

309 C WRITE ( 6,101)(B(I),I=1,N) RRE 

310 101 FORMAT( 5F20. 10) RRE 

311 IF(NPAS .GE. IPAS) GO TO 99 RRE 

312 IF (ABS(B(l)-BB) . LT. . 01*ABS(BB)) GO TO 99 RRE 

313 C CALL VMULFF(X, B,M,N, 1,1X1, 1X2, W,IX1, IER) RRE 

314 C YHAT COMES FROM X TIMES B, DONE WITH A DO LOOP SINCE WE HAVE VECTORS. 

315 DO 202 1=1, M 

316 202 W(I)=X(I,1)*B(1) 

317 

318 C IF (IER. GT. 0) WRITE (6,109) IER RRE 

319 C COMPUTE RESIDUALS AND MEDIAN OF ABSOLUTE RESIDUALS RRE 

320 DO 20 1=1, M RRE 

321 W( I)=Y( I) -W( I) RRE 

322 20 U( I)=ABS(W( I) ) RRE 

323 CALL PXSORT( U, 1,M) RRE 

324 C WRITE( 6 , 499) (U(I),I=1,M) RRE 

325 499 F0RMAT(6F20. 10) RRE 

326 105 FORMAT( 8F10. 7) RRE 

327 S=U( IM) + R*(U( IM+1) -U( IM) ) RRE 

328 S=C*C*S*S RRE 

329 SS=S**. 5 RRE 

330 C WRITE(6 , 199) SS RRE 

331 199 FORMAT( f CS: ' ,F20. 10) RRE 

332 DO 40 1=1, M RRE 

333 W(I)=W(I)*W(I)/S RRE 

334 IF (W(I) .LT. 1.) GO TO 25 RRE 

335 C FACTOR IS 0. IN THIS CASE RRE 

336 WY( I)=0. RRE 

337 DO 31 J=1,N RRE 

338 WX(I,J)=0. RRE 

339 31 CONTINUE RRE 

340 GO TO 40 RRE 

341 25 W(I)=(1-W(I)) RRE 

342 DO 35 J=1,N RRE 

343 35 WX(I,J)=X(I,J)*W(I) RRE 

344 WY(I)=Y(I)*W(I) RRE 

345 40 CONTINUE RRE 

346 GO TO 10 RRE 

347 99 CONTINUE RRE 

348 RETURN RRE 

349 END RRE 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 

350 C PXS 

351 C SUBROUTINE PXSORT (Ml) PXS 
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352 C 

353 C 

354 C 

355 C 

356 C 

357 C 

358 C 

359 C 

360 C 

361 C 

362 C 

363 C 

364 C 

365 C 

366 C 

367 C 

368 C 

369 C 

370 C 

371 C 

372 C 

373 C 

374 C 

375 C 

376 C 

377 C 

378 C 

379 C 

380 C 

381 C 

382 C 

383 C 

384 C 

385 C 

386 C 

387 C 

388 C 

389 C 

390 C 

391 C 

392 C 

393 C 

394 C 

395 C 

396 C 

397 

398 C 

399 

400 

401 

402 

403 

404 

405 

406 

407 



PXS 

PURPOSE PXS 

PXS 

SUBROUTINE PXSORT IS INTENDED TO REARRANGE AN ARRAY OF REAL*4 PXS 

DATA INTO ASCENDING ORDER BETWEEN TWO SPECIFIED INDICES. PXS 

PXS 

CALLING SEQUENCE PXS 

PXS 

CALL PXSORT( A, II, JJ) PXS 

PXS 

ARGUMENTS PXS 

PXS 

A A SINGLE DIMENSIONED ARRAY OF REAL*4 DATA TO BE PXS 

SORTED INTO ASCENDING ORDER. DIMENSIONED TO AT LEAST JJ. PXS 

PXS 

II THE STARTING INDEX FOR THE ORDERING OF A, PXS 

E.G. , 11=1 IF THE WHOLE ARRAY IS TO BE SORTED. PXS 

PXS 

JJ THE ENDING INDEX FOR ORDERING A. PXS 

PXS 

USAGE PXS 

PXS 

THE ARRAY A WILL BE SORTED INTO INCREASING ORDER SO THAT PXS 

A( I) < A( 1+1) FOR I = 11,11+1,. .. ,JJ-2,JJ-1. PXS 

PXS 

PXSORT WILL ONLY SORT REAL* 4 DATA, NOT REAL* 8 , INTEGER, OR PXS 
ALPHANUMERIC DATA. PXS 

PXS 

SUBROUTINES REQUIRED PXS 

PXS 

NONE. PXS 

PXS 

METHOD PXS 

PXS 

SINGLETON'S VERSION OF THE PARTITION EXCHANGE SORT IS PXS 

USED. THE PROGRAM IS ESSENTIALLY COPIED FROM THE ASSOCIATION PXS 

FOR COMPUTING MACHINERY'S ALGORITHM 247, "SORTING WITH PXS 

MINIMAL STORAGE. " PXS 

PXS 

PROGRAMMER: IMPLEMENTED AT NPS BY D. W. ROBINSON PXS 

PXS 

DATE: APR 74 PXS 

PXS 

PXS 

PXS 

SUBROUTINE PXSORT( A, II , JJ) PXS 

PXS 

DIMENSION A( JJ) , IU( 16) , IL( 16) PXS 

M=1 PXS 

I=II PXS 

J=JJ PXS 

5 IF( I . GE. J)GO TO 70 PXS 

10 K=I PXS 

IJ=( I+J)/2 ' PXS 

T=A( I J) PXS 

IF( A( I) .LE. T) GO TO 20 PXS 
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408 




A( I J)=A( I ) 


PXS 


409 




A( I )=T 


PXS 


410 




T=A( I J) 


PXS 


411 


20 


L=J 


PXS 


412 




IF(A(J) .GE. T) GO TO 40 


PXS 


413 




A(IJ)=A(J) 


PXS 


414 




A(J)=T 


PXS 


415 




T=A( I J) 


PXS 


416 




IF( A( I) . LE. T) GO TO 40 


PXS 


417 




A( I J)=A( I ) 


PXS 


418 




A( I )=T 


PXS 


419 




T=A( I J) 


PXS 


420 




GO TO 40 


PXS 


421 


30 


TT = A(L) 


PXS 


422 




A(L) = A(K) 


PXS 


423 




A(K)=TT 


PXS 


424 


40 


L=L- 1 


PXS 


425 




IF( A(L) .GT. T) GO TO 40 


PXS 


426 


50 


K=K+1 


PXS 


427 




IF( A(K) .LT. T) GO TO 50 


PXS 


428 




IF(K .LE. L) GO TO 30 


PXS 


429 




IF( L-I .LE. J-K) GO TO 60 


PXS 


430 




IL(M)=I 


PXS 


431 




IU(M)=L 


PXS 


432 




I=K 


PXS 


433 




M=M+1 


PXS 


434 




GO TO 80 


PXS 


435 


60 


IL(M)=K 


PXS 


436 




IU(M)=J 


PXS 


437 




J=L 


PXS 


438 




M=M+1 


PXS 


439 




GO TO 80 


PXS 


440 


70 


M=M- 1 


PXS 


441 




IF(M .EQ. 0) RETURN 


PXS 


442 




I=IL( M) 


PXS 


443 




J=IU( M) 


PXS 


444 


80 


IF( J-I .GE. 11)G0 TO 10 


PXS 


445 




IF( I .EQ. II) GO TO 5 


PXS 


446 




1=1-1 


PXS 


447 


90 


1=1+1 


PXS 


448 




IF( I .EQ. J) GO TO 70 


PXS 


449 




IF( A( I) .LE. A( 1+1) ) GO TO 90 


PXS 


450 




T = A( 1+1) 


PXS 


451 




K=I 


PXS 


452 


100 


A(K+1)=A(K) 


PXS 


453 




K=K- 1 


PXS 


454 




IF(T .LT. A(K) ) GO TO 100 


PXS 


455 




A(K+1)=T 


PXS 


456 




GO TO 90 


PXS 


457 




END 


PXS 



NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 
NUMBER OF WARNINGS IN COMPILATION : 0 
NUMBER OF ERRORS IN COMPILATION : 0 
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1 


C 


SIMTBED DRIVER FOR BETA-L-LAPLACE TRANSFORM AR PROCESS 

_ CMTD 1 O 


RST 

DOT 


z 


U 






Ko I 


3 




REAL*4 Y( 6500) , YMIN, YMAX, V( 8) ,RH0,LL, ALPHA 




4 




CHARACTER* 120 T1,T2,T3,T4,T5 


RST 


5 




REAL* 8 1X1, 1X2, 1X3, 1X4, 1X5, IX 




6 




INTEGER N, M, NE(8), L, D, RG, SEI, SVS, NEST , NC0LRNDX( 3 ) 


RST 


7 




EXTERNAL BM0M,BCRES1,BBBB, ROBUST 




8 




REAL VMSE(8,5) , VMX1(8,4) ,VMX2(8,4) ,VMX3(8,4) ,VMX4(8,4) ,VMX5(8,4) 


RST 


9 




COMMON ALPHA, LL 




10 


C 






RST 


11 




DATA 


N/ 6000/ 




12 




DATA 


M/ 20/ 




13 




DATA 


NE/ 20,60,100,150,200,250,350,500/ 




14 




DATA 


L/ 8/ 




15 




DATA 


D/ 4/ 


RST 


16 




DATA 


RG/ 1/ 


RST 


17 




DATA 


SEI/ 0/ 


RST 


18 




DATA 


SVS/ 0/ 


RST 


19 




DATA 


YMIN/ 0./ 


RST 


20 




DATA 


YMAX/ 0./ 


RST 


21 




DATA 


IX/ 88771. DO/ 


RST 


22 




DATA 


IFILE / 1/ 




23 




DATA 


NPRT /l/ 


RST 


24 




DATA 


MSF. /!/ 


RST 


25 




DATA 


VMSE /32*0. 8963,8*0/ 




26 




DATA 


IPR /0/ 


RST 


27 




DATA 


IBIV /0/ 




28 




DATA 


IRSTR / 1/ 


RST 


29 




DATA 


72/ r ***Rho( . 8963) of SqrtBeta L laplace AR r.v. s, A=. 84, L= 



30 * .95 Using Robust Least Squares estimator (C=4. 2)'/ 

31 DATA T3/ ,,v **Rho( . 8963) of SqrtBeta L laplace AR r.v. s, A=. 84, L = 

32 * .95 Using moment estimator'/ 

33 DATA T4/ '***Rho( . 8963) of SqrtBeta L laplace AR r.vs. , A=. 84, L= 

34 * . 95 Using Cressie Estimator'/ 

35 DATA T5/ ,,v **Rho( . 8963) of SqrtBeta L laplace AR r.vs. , A=. 84, L= 

36 * . 95 Using Priestly Estimator'/ 

37 DATA I COLOR/ 1/ IBWPRT/1/ NCPRT/ 3/NCOLRNDX/ 1,2,7/ 

38 0PEN(06,FILE='bfl. OUT' ,ERR=999 , I0STAT=IER) 

39 0PEN(05 ,FILE=' CON ' ,ERR=999 , I0STAT=IER) 

40 0PEN(02,FILE='bfl. RST' , ERR=99 9 , 10STAT=IER,F0RM=' UNFORMATTED' , 

41 C ACCESS=' SEQUENTIAL' ) 



42 


0PEN( 0 1 , F I LE= ' B f 1 . DAT ' , F0RM= ' FORMATTED ' , ACCESS= ' SEQUENTIAL ' ) 




43 C 


--- GENERATOR PARAMETERS 


RST 


44 


NEST=4 




45 


NSR=3 


i 


46 


LL= .95 




47 


ALPHA=0. 84 




48 C 




RST 


49 


IX1=IX 


RST 


50 


IX2=IX 


RST 


51 


IX3=IX 


RST 


52 


IX4=IX 




53 


IX5=IX 





54 C 
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55 C RST 

56 C 

57 CALL SIMTBED( 1X1 , 1X2 , 1X3 , 1X4 , 1X5 , Y,N,M,NE ,L,D,NSR,RG, SEI , SVS , 

58 * YMIN, YMAX , NEST , robust , t 2 , BCRES 1 , T4 , BMOM , T3 , BBBB , T5 , BMOM ,T3 , IFILE 

59 * ,NPRT,MSE , VMSE , IPR, VMX1 , VMX2 , VMX3 , VMX4,VMX5 , IBIV, IRSTR, ICOLOR, 

60 * I BWPRT , NCPRT , NCOLRNDX ) 

61 STOP 

62 C 

63 999 CONTINUE 

64 WRITE(6,*) ******* ERROR OPENING FILE 1, 2 or 6 1 

65 END RST 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 

66 INCLUDE 'BELAR1. for' 

67 SUBROUTINE BELAR1(SEED, ALPHA, L,N,X) 



68 C THIS SUBROUTINE GENERATES CORRELATED L LAPLACE R. V. S USING THE 

69 C BETA SQUARE ROOT TRANSFORMATION AND THE L LAPLACE DISTRIBUTION 

70 C THE L LAPLACE DISTRIBUTION IS GENERATED AS THE DIFFERENCE OF 

71 C 2 GAMMA ( L , 1 ) RANDOM VARIABLES. 

72 REAL* 8 SEED 

73 REAL* 4 ALPHA, L, X(*) ,Y(5100) ,A(5100) ,B(5100) ,E,F 

74 INTEGER N 

75 C FIRST GENERATE THE L LAPLACE STREAM OF R. V. S 

76 C THIS WAS FOR USING IMSL SSTAT18A RANDOM NUMBER GENERATORS 

77 C CALL RNSET( 12345678) 

78 CALL LGAMPC( SEED , X , N , L) 

79 CALL LGAMPC( SEED , Y , N , L) 

80 DO 10 1=1, N 

81 10 Y( I)=X( I) -Y( I) 

82 C NOW GENERATE THE BETA R. V. S (2 STREAMS) 

83 

84 CALL LBETPC( SEED, A, N,L*ALPHA,L*(1 -ALPHA)) 

85 CALL LBETPC( SEED, A, N,L*(1 -ALPHA), L*ALPHA) 

86 C WRITE(5 ,*) ( A( I) , 1=1 ,N) 

87 C WRITE( 5 , *) ( B( I ) , 1=1 ,N) 

88 

89 C A(I) IS NOW BETA( L* ALPHA, L*( 1 -ALPHA)) 

90 C B( I ) IS NOW BETA( L*(l -ALPHA) ,L*ALPHA) 

91 X( 1)=Y( 1) 

92 DO 12 1=2, N 

93 C WRITE (5 ,50)' A 1 , A( I) , ' B ' , B ( I ) , * I * ,1 

94 50 FORMATC ' ,A,E15. 6,A,E15. 6, A, 14) 

95 C CHECK FOR UNDERFLOW BEFORE SQRT IS DONE 

96 IF( A( I) . LE. IE-7 ) THEN 

97 C WRITE (5 ,*) ' A( I) ' ,A(I) 

98 A( I )=lE-7 

99 E=A( I)**0. 5 

100 ELSE 

101 C WRITE( 5,*) 'ROOTING A. . . ' , I 

102 E=A( I)**0. 5 

103 END IF 

104 IF(B(I).LE. IE-7) THEN 

105 C WRITE(5 ,*) ' B( I) ' ,B(I) 

106 B( I )=lE-7 



121 



107 F=B(I)**0. 5 

108 ELSE 

109 C WRITE( 5,*) 'ROOTING 

110 F=B(I)**0. 5 

111 ENDIF 

112 

113 C A MINUS SIGN AT THE START OF LINE 12 INDICATES WE ARE CONTSTRUCTING 

114 C NEGATIVE CORRELATIONS. 

115 

116 12 X(I)=-X(I-1)*E+Y(I)*F 

117 RETURN 

118 END 



NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 



119 INCLUDE ' BMOM. for' 

120 SUBROUTINE BMOM( IX,N,EVAL) 

121 C LAG 1 SERIAL CORRELATION OF BETA L LAPLACE R. V. S , RHO=0. 7996 

122 C USING XBAR TO ESTIMATE MU 

123 C L AND ALPHA OF THE BETA AR PROCESS ARE PASSED TO THE 

124 C GENERATOR BE LARI THROUGH COMMON STORAGE 

125 REAL* 8 IX 

126 REAL* 4 X( 600) , MEAN, ALPHA, L 

127 COMMON ALPHA, L 

128 CALL BELAR1( IX, ALPHA, L,N,X) 

129 SUM=0 

130 SUM1=0 

131 DO 1 1=1, N 

132 1 SUM=SUM+X( I ) 

133 MEAN=SUM/N 

134 SUM=0 

135 DO 2 1=2, N 

136 SUM=SUM+(X( I) -MEAN)*(X( 1-1) -MEAN) 

137 2 SUM1=SUM1+(X( I) -MEAN)**2 

138 EVAL=SUM/ SUM1 

139 C WRITE (5 ,*) ' SER. COR = ' ,EVAL 

140 RETURN 

141 END 



NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 

142 INCLUDE ’BBBB. for' 

143 SUBROUTINE BBBB( IX,N,EVAL) 

144 C COMPUTES THE LAG 1 CORR COEFF ESTIMATOR USING THE PRIESTLY FORMULA 

145 C THE BETA LAPLACE PROCESS HAS ALPHA AND L PASSED BY 

146 C COMMON STORAGE. 

147 REAL* 8 IX 

148 REAL* 4 X( 600) , MEAN,MEANINPU, STDINPU, A, B ,XBAR1 ,XBAR2 , MUHAT 

149 REAL SUM 1,SUM2, ALPHA, L 

150 COMMON ALPHA, L 

151 C WRITE(5,*) 'ENTERED BPRIES N: ’ ,N,L, ALPHA 

152 CALL BELAR1C IX, ALPHA, L,N,X) 

153 A=0 

154 B=0 
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155 XBAR1=0 

156 XBAR2=0 

157 SUM 1=0 

158 SUM2=0 

159 DO 1 1=1, N-l 

160 A=A+X(I)*X(I) 

161 B=B+X(I)*X(I+1) 

162 XBAR1=XBAR1+X( I) 

163 1 XBAR2=XBAR2+X( 1+1) 

164 C WRITE(5,*)'I: ',1,' X(I) ' ,X(I) , ’ A: ' , A , ' B : ' ,B, 'XBARl: ' ,XBAR1, 'XBA 

165 C *R2: ' ,XBAR2 

166 XB AR1=XB AR 1/ ( N- 1 ) 

167 XBAR2=XBAR2/(N-1) 

168 MUHAT=( A*XB AR2 -B*XB AR 1 ) / ( ( A-B )+( ( N- 1 )*XBAR1*( XBAR2 -XBARl ) ) ) 

169 DO 2 1=1, N-l 

170 SUM1=SUM1+(X( I) -MUHAT)*(X( 1+1) -MUHAT) 

171 2 SUM2=SUM2+(X(I)-MUHAT)**2 

172 EVAL=SUM1/SUM2 

173 C WRITE(5 ,*) ' SUM1: 1 ,SUM1, ' SUM2: ' ,SUM2 

174 C WRITE ( 5 ,*) ' PREISTLY MUHAT' MUHAT 

175 C WRITE( 5 ,*) ' XBARl: ’, XBARl ,' XBAR2: ’ ,XBAR2 

176 C WRITE (5 ,*) 'A: ',A,' B: ',B,' N: ' ,N 

177 C WRITE (5,*) ' X»»> ' , (X( I) . 1=1 ,N) 

178 C WRITE( 5 ,*)' PRIESTLY RHO: ' ,EVAL 

179 RETURN 

180 END 



NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 

181 INCLUDE 'ROBUST, for' 

182 SUBROUTINE ROBUST( SEED , N , EVAL) 

183 C THIS ROUTINE GENERATES A STREAM OF R. V. S, AND THEN PERFORMS ROBUST 

184 C REGRESSION ON THEM TO ESTIMATE RHO. 

185 C THE CURRENT STREAM IS AR(1) NORMAL R. V. S. 

186 REAL* 8 SEED 

187 REAL* 4 X( 600) , Y( 600) ,B( 1) ,XX( 1 , 1) ,XXI( 1 , 1) ,XY( 1 , 1) 

188 REAL*4 RMED1 ,RMED2 ,RMED3 , SRI , SR2 , SR3 ,SY,CR ,W( 600) ,U( 600) 

189 REAL*4 WX( 600 , 1) ,WY( 600) , EVAL 

190 INTEGER N,I,IN 

191 COMMON ALPHA, L 

192 DATA CY/1. O/CR/4. 2/CY/l. 0/ 

193 DATA NN/l/IPAS/5/ 

194 1X2=1 

195 CALL BELAR1( SEED, ALPHA, L,N,X) 

196 C CONSTRUCT X AND Y VECTORS FROM X ARRAY 

197 DO 1 1=1, N-l 

198 1 Y( I)=X( 1+1) 

199 IN=N-1 

200 IX1=IN 

201 CALL ROBREG(X, Y,B, IN,NN,IX1, 1X2 , CR ,XX,XXI ,XY,W,U,WX,WY, I PAS) 

202 EVAL=B( 1) 

203 C WRITE ( 5 ,*) ' EVAL: ' ,EVAL 

204 RETURN 

205 END 
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NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 



206 

207 C 

208 C 

209 C 

210 C 

211 C 

212 C 

213 C 

214 C 

215 C 

216 C 

217 C 

218 

219 

220 
221 

222 C 

223 C 

224 C 

225 

226 

227 

228 

229 

230 

231 C 

232 C 

233 C 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 



SUBROUTINE ROBREG(X, Y ,B ,M,N, 1X1 , 1X2, C , XX, XXI ,XY, W ,U ,WX,WY, IPAS) 

ROBUST REGRESSION ON Y=X*B RRE 
IPAS=MAX # REGRESSION PASSES. 1 FOR STD (I.E. NON-ROBUST) REGRESSION RRE 
X=M BY N MATRIX CONTAINED IN AN ARRAY OF DIM(IX1,IX2) RRE 
Y=M- VECTOR CONTAINED IN AN ARRAY OF DIM(IXl) RRE 
B=N- VECTOR CONTAINED IN AN ARRAY OF DIM(IX2) RRE 
XX,XXI=WORK ARRAYS OF DIM(IX2,IX2) RRE 
W,U,WY=WORK ARRAYS OF DIM(IXl) RRE 
WX=WORK MATRIX OF DIM(IX1,IX2) RRE 
XY=WORK ARRAY OF DIM(IX2) RRE 
WK=WORK ARRAY OF DIM(N**2 + 3*N) OR LARGER RRE 
C=CONSTANT. USUALLY =6. RRE 



CRITERION FOR STOPPING IS WHEN VARIATION IN CONST. TERM < 1% RRE 

IT USES SEVERAL SUBROUTINES FROM IMSL FOR MATRIX INVERSION, RRE 

MULTIPLICATION, ETC. ALSO USES PXSORT TO SORT ARRAY. RRE 

REAL* 4 X( 1X1 , 1X2) ,XX( 1X2 , 1X2) ,XXI( 1X2 , 1X2) 

REAL*4 Y( 1X1) ,WK( 600) 

REAL*4 B( 1X2) ,W( 1X1) ,XY( 1X2) , BB ,WX( 1X1 , 1X2) ,WY( 1X1) 

REAL* 4 U(IX1) ,C,S,AM,R,SS,SUM1 

NPAS=0 RRE 

ZER0=0 RRE 

SUPPRESS ERROR MESSAGES: UNDERFLOW AND IMSL RRE 

CALL ERRSET( 208 , 300 ,-1,1) RRE 

CALL UERSET( 0 , LEVOLD) RRE 

AM=(M+1. )/2. RRE 

IM=AM RRE 

R=AM-IM RRE 

B(l)=-999999. RRE 

DO 5 1=1 ,M RRE 

WY( I)=Y( I) RRE 

DO 6 J=1,N RRE 

WX(I,J)=X(I,J) RRE 

6 CONTINUE RRE 

5 CONTINUE RRE 
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245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 



C 

10 CONTINUE 
NPAS=NPAS+1 

C CALL VMULFM( WX,WX,M,N,N,IX1,IX1,XX,IX2, IER ) 

C VMULFM PERFORMS X TRANSPOSE X. WE CAN DO IT WITH A DO LOOP, SINCE 
C IN THIS CASE X IS A VECTOR. RESULT GOES IN XX (DIM 1,1) 



RRE 

RRE 

RRE 

RRE 



XX(1,1)=0 
DO 200 1=1, M 

200 XX( 1 , 1)=XX( 1 , 1)+WX( I , 1)**2 
IER=0 

C IF (IER. GT. 0) WRITE (6,109) IER RRE 

109 FORMAT( 'ERROR: ' ,2110) ' RRE 

C CALL VMULFM( WX , WY , M , N , 1 , IX 1 , IX 1 , XY , 1X2 , IER) RRE 

C VMULFM PERFORMS MATRIX MULTIPLICATION. WE WILL DO IT WITH A DO LOOP 
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259 


C 


SINCE X AND Y ARE VECTORS. RESULT GOES IN XY (DIM 1,1). 






260 




XY(1)=0 






261 




DO 201 1=1, M 






262 


201 XY(1)=XY(1)+WX(I,1)*WY(I) 






263 




IER=0 






264 


C 


IF (IER. GT. 0) WRITE (6,109) IER 




RRE 


265 


c 


CALL LINV2F( XX , N , 1X2 , XXI , ZERO , WK , IER) 




RRE 


266 


c 


LINV2F FINDS THE INVERSE OF A MATRIX (X TRANSPOSE X). 


WE WILL DO IT 




267 


c 


WITH A DO LOOP, SINCE X IS A VECTOR IN THIS CASE. RESULT INTO XXI. 




268 










269 




XXI(1,1)=1/XX(1,1) 






270 










271 


c 


IF (IER. GT. 0) WRITE (6,109) IER 




RRE 


272 




BB=B( 1) 




RRE 


273 


c 


CALL VMULFF( XXI , XY ,N , N , 1 , 1X2 , 1X2 , B , 1X2 , IER) 




RRE 


274 


c 


PERFORMING X TRANSPOSE X INVERSE TIMES X TRANSPOSE Y. 


RESULT INTO 




275 


c 


B (DIM 1). DONE WITHOUT A SUB CALL IN THIS CASE, SINCE 


WE'RE 




276 


c 


DEALING WITH VECTORS. 






277 




B(1)=XY(1)*XXI(1,1) 






278 










279 










280 


c 


IF (IER. GT. 0) WRITE (6,109) IER 




RRE 


281 


c 


WRITE ( 6,101)(B(I),I=1,N) 




RRE 


282 




101 FORMAT( 5F20. 10) 




RRE 


283 




IF(NPAS .GE. IPAS) GO TO 99 




RRE 


284 




IF (ABS(B(l)-BB) . LT. . 01*ABS(BB)) GO TO 99 




RRE 


285 


c 


CALL VMULFF(X,B ,M,N, 1,1X1, 1X2 ,W, 1X1 , IER) 




RRE 


286 


c 


YHAT COMES FROM X TIMES B, DONE WITH A DO LOOP SINCE WE 


HAVE VECTORS. 




287 




DO 202 1=1, M 






288 


202 W( I)=X( I , 1)*B( 1) 






289 










290 


C 


IF (IER. GT. 0) WRITE (6,109) IER 




RRE 


291 


C 


COMPUTE RESIDUALS AND MEDIAN OF ABSOLUTE RESIDUALS 




RRE 


292 




DO 20 1=1, M 




RRE 


293 




W( I)=Y( I) -W( I) 




RRE 


294 




20 U( I)=ABS(W( I) ) 




RRE 


295 




CALL PXSORT(U, 1 ,M) 




RRE 


296 


c 


WRITE ( 6 , 499) (U(I),I=1,M) 




RRE 


297 




499 FORMAT( 6F20. 10) 




RRE 


298 




105 FORMAT( 8F10. 7) 




RRE 


299 




S=U( IM) + R*(U( IM+1) -U( IM) ) 




RRE 


300 




s=c*c*s*s 




RRE 


301 




IF(S. LT. IE-07) THEN 






302 


c 


WRITE( 5 ,*) ' S: IN ROBREG: ’ ,S,'(SET 1 IE-07) U(IM)\ 


U( IM) , ' R ' , 




303 


c 


* R 






304 




S=l. E-07 






305 




ss=l. e- 14 






306 




ELSE 






307 




SS=S**. 5 




RRE 


308 




END IF 






309 




199 FORMATC CS:',F20. 10) 




RRE 


310 




DO 40 1=1, M 




RRE 


311 




W(I)=W(I)*W(I)/S 




RRE 


312 




IF (W(I) .LT. 1. ) GO TO 25 




RRE 


313 


C 


FACTOR IS 0. IN THIS CASE 




RRE 


314 




WY( I)=0. 




RRE 



125 



315 




DO 31 J=1 ,N 


RRE 


316 




WX(I,J)=0. 


RRE 


317 


31 


CONTINUE 


RRE 


318 




GO TO 40 


RRE 


319 


25 


W(I)=(1-W(I)) 


RRE 


320 




DO 35 J=1 ,N 


RRE 


321 


35 


WX(I,J)=X(I,J)*W(I) 


RRE 


322 




WY(I)=Y(I)*W(I) 


RRE 


323 


40 


CONTINUE 


RRE 


324 




GO TO 10 


RRE 


325 


99 


CONTINUE 


RRE 


326 




RETURN 


RRE 


327 




END 


RRE 



NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 



328 C 




PXS 


329 C 


SUBROUTINE PXSORT (Ml) 


PXS 


330 C 




PXS 


331 C 


PURPOSE 


PXS 


332 C 




PXS 


333 C 


SUBROUTINE PXSORT IS INTENDED TO REARRANGE AN ARRAY OF REAL*4 


PXS 


334 C 


DATA INTO ASCENDING ORDER BETWEEN TWO SPECIFIED INDICES. 


PXS 


335 C 




PXS 


336 C 


CALLING SEQUENCE 


PXS 


337 C 




PXS 


338 C 


CALL PXSORT( A, II, JJ) 


PXS 


339 C 




PXS 


340 C 


ARGUMENTS 


PXS 


341 C 




PXS 


342 C 


A A SINGLE DIMENSIONED ARRAY OF REAL*4 DATA TO 3E 


PXS 


343 C 


SORTED INTO ASCENDING ORDER. DIMENSIONED TO AT LEAST JJ. PXS 


344 C 




PXS 


345 C 


II THE STARTING INDEX FOR THE ORDERING OF A, 


PXS 


346 C 


E.G. , 11=1 IF THE WHOLE ARRAY IS TO BE SORTED. 


PXS 


347 C 




PXS 


348 C 


JJ THE ENDING INDEX FOR ORDERING A. 


PXS 


349 C 




PXS 


350 C 


USAGE 


PXS 


351 C 




PXS 


352 C 


THE ARRAY A WILL BE SORTED INTO INCREASING ORDER SO THAT 


PXS 


353 C 


A( I) < A( 1+1) FOR I = 11,11+1,. .. ,JJ-2,JJ-1. 


PXS 


354 C 




PXS 


355 C 


PXSORT WILL ONLY SORT REAL* 4 DATA, NOT REAL*8, INTEGER, OR 


PXS 


356 C 


ALPHANUMERIC DATA. 


PXS 


357 C 




PXS 


358 C 


SUBROUTINES REQUIRED 


PXS 1 


359 C 




PXS 


360 C 


NONE. 


PXS 


361 C 




PXS 


362 C 


METHOD 


PXS 


363 C 




PXS 


364 C 


SINGLETON'S VERSION OF THE PARTITION EXCHANGE SORT IS 


PXS 


365 C 


USED. THE PROGRAM IS ESSENTIALLY COPIED FROM THE ASSOCIATION 


PXS 


366 C 


FOR COMPUTING MACHINERY’S ALGORITHM 247, "SORTING WITH 


PXS 
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367 

368 

369 

370 

371 

372 

373 


C 

C 

C 

C 

C 

C 

n 




MINIMAL STORAGE." 

PROGRAMMER: IMPLEMENTED AT NPS BY D. W. ROBINSON 

DATE: APR 74 


PXS 

PXS 

PXS 

PXS 

PXS 

PXS 

-------- -DYC 


u 








374 


c 






PXS 


375 






SUBROUTINE PXSORT( A, II , JJ) 


PXS 


376 


c 






PXS 


377 






DIMENSION A( JJ) , IU( 16) , IL( 16) 


PXS 


378 






M=1 


PXS 


379 






I=II 


PXS 


380 






j=JJ 


PXS 


381 




5 


IF( I .GE. J)GO TO 70 


PXS 


382 




10 


K=I 


PXS 


383 






IJ=( I+J)/2 


PXS 


384 






T=A( IJ) 


PXS 


385 






IF( A( I) .LE. T) GO TO 20 


PXS 


386 






A( I J)=A( I ) 


PXS 


387 






A(I)=T 


PXS 


388 






T=A( IJ) 


PXS 


389 




20 


L=J 


PXS 


390 






IF(A(J) .GE. T) GO TO 40 


PXS 


391 






A( I J)=A( J) 


PXS 


392 






A( J)=T 


PXS 


393 






T=A( IJ) 


PXS 


394 






IF( A( I) . LE. T) GO TO 40 


PXS 


395 






A( IJ)=A( I) 


PXS 


396 






A(I)=T 


PXS 


397 






T=A( IJ) 


PXS 


398 






GO TO 40 


PXS 


399 




30 


TT = A(L) 


PXS 


400 






A(L) = A(K) 


PXS 


401 






A(K)=TT 


PXS 


402 




40 


L=L- 1 


PXS 


403 






IF(A(L) .GT. T) GO TO 40 


PXS 


404 




50 


K=K+1 


PXS 


405 






IF( A(K) .LT. T) GO TO 50 


PXS 


406 






IF( K .LE. L) GO TO 30 


PXS 


407 






IF( L-I .LE. J-K) GO TO 60 


PXS 


408 






IL(M)=I 


PXS 


409 






IU(M)=L 


PXS 


410 






I=K 


PXS 


411 






M=M+ 1 


PXS 


412 






GO TO 80 


PXS 


413 




60 


IL(M)=K 


PXS 


414 






IU(M)=J 


PXS 


415 






J=L 


PXS 


416 






M=M+1 


PXS 


417 






GO TO 80 


PXS 


418 




70 


M=M- 1 


PXS 


419 






IF(M .EQ. 0) RETURN 


PXS 


420 






I=IL(M) 


PXS 


421 






J=IU(M) 


PXS 


422 




80 


IF( J-I .GE. ll)GO TO 10 


PXS 
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423 




IF( I .EQ. II) GO TO 5 


PXS 


424 




1=1-1 


PXS 


425 


90 


1=1+1 


PXS 


426 




IF( I .EQ. J) GO TO 70 


PXS 


427 




IF( A( I) .LE. A( 1+1) ) GO TO 90 


PXS 


428 




T = A( 1+1) 


PXS 


429 




K=I 


PXS 


430 


100 


A(K+1)=A(K) 


PXS 


431 




K=K- 1 


PXS 


432 




IF(T .LT. A(K) ) GO TO 100 


PXS 


433 




A(K+1)=T 


PXS 


434 




GO TO 90 


PXS 


435 




END 


PXS 



NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 

436 INCLUDE 'BCRES1. for' 

437 SUBROUTINE BCRES1( IX, N ,EVAL) 

438 C COMPUTES THE LAG 1 CORR COEFF ESTIMATOR USING THE CRESS IE FORMULA 

439 C THE BETA LAPLACE PROCESS HAS ALPHA AND LPASSED BY 

440 C COMMON STORAGE. 

441 C USES FUNCTION AMEDI (WHICH USES HEAPSORT AND HEAPIFY) TO GET THE 

442 C MEDIAN. 

443 REAL* 8 IX 

444 REAL* 4 X( 600) , MEAN, MEANINPU, MEDIAN ,STDINPU, ALPHA, L 

445 COMMON ALPHA, L 

446 CALL BELAR1C IX, ALPHA, L,N,X) 

447 SUM1=0 

448 SUM2=0 

449 MED I AN=AME D I ( X , N ) 

450 C WRITE ( 5,*)' MEDIAN = ', MEDIAN 

451 C WRITE ( 5 ,*) ' X( I) ’ , (X( I) , 1=1, N) 

452 DO 1 1=1, N-l 

453 SUM1=SUM1+SQRT( ABS(X( I) -X( 1+1) ) ) 

454 1 IF(ABS(X( I) -MEDIAN). GT. 0)SUM2=SUM2+SQRT(ABS(X( I) -MEDIAN) ) 

455 EVAL= 1 - ( ( ( SUM 1 / SUM2 ) **4 ) / 2 ) 

456 C WRITEC5,*) 'CRESS = ' ,EVAL 

457 RETURN 

458 END 



NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 

459 FUNCTION AMEDI(X,N) 

460 C THIS ROUTINE USES A SHELLSORT AND INDEXES INTO THE REAL ARRAY X TO FIND 

461 C THE MEDIAN OF X WITHOUT REARRANGING IT. 

462 C THE INDEXES ARE USED AS INTEGER*2 TO CONSERVE STORAGE. 

463 REAL*4 X(*) 

464 INTEGER* 2 I,INDX(600) 

465 INTEGER N 

466 DO 1 1=1, N 

467 1 INDX( I )=I 

468 C WRITE (5,*)’ UNSORTED LIST: ’ , (X( INDX( I) ) , 1=1, N) 

469 CALL SRTNDX(X,N , INDX) 

470 C WR ITE( 5 ,*)' SORTED LIST: ' , (X( INDX( I) ) , 1=1, N) 
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471 IF(M0D(N,2). EQ. 0)THEN 

472 AMEDI=(X( INDX(N/2) )+X( INDX(N/2+l) ) )/2 

473 ELSE 

474 AMEDI=X( INDX(N/2+l) ) 

475 END IF 

476 RETURN 

477 END 

NUMBER OF WARNINGS IN PROGRAM UNIT: 0 
NUMBER OF ERRORS IN PROGRAM UNIT: 0 



478 SUBROUTINE SRTNDX( Y,N, INDX) 

479 C INPLACE SORT USING SHELL ALGORITHM ******** SMT 

480 C USES INDEXES TO SORT BY TO PRESERVE ORIGINAL ORDER OF Y ARRAY 



481 




REAL Y ( * ) 




482 




INTEGER* 2 GAP, INDX(*) , ITEMP 




483 




INTEGER N 




484 




LOGICAL EXCH 


SMT 


485 C 






SMT 


486 




GAP=(N/2) 


SMT 


487 


5 


IF (.NOT. (GAP. NE. 0)) GO TO 500 


SMT 


488 


10 


CONTINUE 


SMT 


489 




EXCH=. TRUE. 


SMT 


490 




K=N-GAP 


SMT 


491 




DO 200 1=1, K 


SMT 


492 




KK=I+GAP 


SMT 


493 




IF( . NOT. ( Y( INDX( I) ) . GT. Y( INDX(KK) ) ) ) GO TO 100 




494 




ITEMP=INDX( I ) 




495 




INDX( I)=INDX(KK) 




496 




INDX(KK)=ITEMP 




497 




EXCH=. FALSE. 




498 


100 


CONTINUE 




499 


200 


CONTINUE 


SMT 


500 




IF (.NOT. (EXCH)) GO TO 10 


SMT 


501 




GAP=(GAP/2) 


SMT 


502 




GO TO 5 


SMT 


503 


500 


CONTINUE 


SMT 


504 




RETURN 


SMT 


505 




END 


SMT 


NUMBER 


OF 


WARNINGS IN PROGRAM UNIT: 0 




NUMBER 


OF 


ERRORS IN PROGRAM UNIT: 0 




NUMBER 


OF 


WARNINGS IN COMPILATION : 0 




NUMBER 


OF 


ERRORS IN COMPILATION : 0 
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APPENDIX D. SMTBED SOURCE CODE (VERSION 13) 

Source File: SMTB13. FOR Options: /b /I /x 07/18/88 20:50:28 



1 


C 


1 


2 


C 


1 


3 


C 


1 


4 


C 


1 


5 


C 


1 


6 


C 


1 


7 


C 


1 


8 


C 


1 


9 


C 


1 


10 


C 


1 


11 


C 


1 


12 


C 


1 


13 


C 




14 


C 




15 


C 




16 


C 




17 


C 




18 


C 




19 


C 




20 


c 




21 


c 




22 


c 




23 


c 




24 


c 


* 


25 


c 




26 


c 


o 


27 


c 


* 


28 


c 


* 


29 


c 


4 % 


30 


c 


4 \ 


31 


c 




32 


c 


* 


33 


c 


* 


34 


c 




35 


c 


* 


36 


c 


* 


37 


c 


* 


38 


c 




39 


c 


* 


40 


c 




41 


c 


* 


42 


c 




43 


c 


* 


44 


c 




45 


c 




46 


c 




47 


c 




48 


c 




49 


c 





UPDATED 05-10-84 BY LCU 
UPDATED 07-16-84 BY LCU 
UPDATED 07-30-84 BY LCU 
UPDATED 10-25-84 BY LCU 
UPDATED 08-12-85 BY LCU 
UPDATED 04-04-86 BY LCU 
UPDATED 05-12-86 BY LCU 
UPDATED 09-09-86 BY LCU 
UPDATED 09-29-86 BY LCU 
UPDATED 06-10-87 BY LCU 
UPDATE 12/87 BY RLY FOR 
UPDATE 4/88 BY RLY FOR 5 



TO ADD SERIAL CORRELATION 

TO MULTIPLE RUN AND SUMMARY STATISTICS PAGE 

TO ADD NORMALIZED QUANTILES 

TO CONVERT TO FORTRAN 77 

TO ALLOW DEGREE REGRESSION UP TO 6 ON VAR. 

TO SAVE STATS. FROM EACH SUPER REPL. ON FILE 
TO COMPUTE MEAN SQUARE ERROR 
TO DO PERCENTILE PLOTS 

TO DO BIVARIATE HISTOGRAMS. BUG FIX 02-09-87 
TO ADD RESTART FEATURE 

COLOR PRINTER SUPPORT OF COMBINED BOXPLOTS 
ESTIMATORS 



PURPOSE TO GENERATE REGRESSION ADJUSTED ESTIMATES AND BOX PLOTS 
OF ESTIMATES OF AN INPUT RAW DATA SERIES X CONTAING M 
(REPLICATIONS) OF N VALUES EACH. UP TO 3 ESTIMATING 
FUNCTIONS CAN BE USED. THE GRAPHS CAN ALL BE OF THE SAME 
SCALE OR SCALED INDIVIDUALLY. 

* THE SERIES X IS GENERATED FROM INSIDE SIMTB BY USER 

* PROVIDED FUNCTION 

DESCRIPTION OF PARAMETERS 

GEST1, GEST2, GEST3 , GEST4 , GEST5: 

USER SUBROUTINES THAT WILL GENERATE THE DATA, SMT00220 
AND THEN COMPUTE AN ESTIMATE FROM IT. 

THE ACTUAL NAMES USED NAMES MUST BE DECLARED AS EXTERNAL 
IN THE CALLING PROGRAM. CALLS MUST BE AS FOLLOWS: 

CALL SUBROUTINE_NAME( IX,NX,EVAL) 

WHERE: 

IX=SEED (INPUT AND OUTPUT ARGUMENT) 

NX=NO. OF DATA POINTS TO TO GENERATE 
EVAL=VALUE OF ESTIMATOR APPLIED TO THE NX DATA POINTS 
NOTICE THAT PROGRAM ASSUMES THREE SUBROUTINES IN THE 
ARGUMENTS. WHEN USING LESS THAN 3 ESTIMATORS FILL THE 
ARGUMENT POSITIONS WITH DUMMY VARIABLES OR JUST REPEAT 
THE LAST ONE. 

ISEED1 , ISEED2, ISEED3, ISEED4, ISEED5: 

SEEDS FOR DATA GENERATORS 1, 2 & 3. 

THE SEEDS ARE UPDATED (ADVANCED) UPON RETURN FROM SIMTB 



Y 

N 

M 



WORK ARRAY OF SIZE >= M*N/NE(1)) 

NUMBER OF DATA ELEMENTS PER SECTION (N IS SAMPLE SIZE). 

NUMBER OF SECTIONS (REPLICATIONS). 

M CANNOT EXCEED 100 



SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 



SMT 

SMT , 

SMT 

SMT 

SMT 

SMT : 

SMT 

SMT 

SMT 

SMT 

SMT 



SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 
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50 


C 


NE 


51 


C 




52 


C 




53 


C 




54 


C 


L 


55 


C 




56 


C 




57 


C 




58 


C 


D 


59 


C 




60 


C 




61 


C 




62 


C 


NSR 


63 


C 




64 


C 




65 


C 




66 


C 




67 


C 




68 


C 




69 


C 




70 


C 




71 


C 




72 


c 




73 


c 




74 


c 




75 


c 




76 


c 




77 


c 




78 


c 




79 


c 




80 


c 




81 


c 




82 


c 




83 


c 




84 


c 




85 


c 




86 


c 




87 


c 




88 


c 




89 


c 




90 


c 


RG 


91 


c 




92 


c 




93 


c 




94 


c 


SEI 


95 


c 




96 


c 




97 


c 


SVS 


98 


c 




99 


c 




100 


c 


YMIN 


101 


c 




102 


c 


YMAX 


103 


c 




104 


c 


NEST 


105 


c 





INTEGER ARRAY OF SIZE 8 CONTAINING SUBSAMPLE SIZES FOR N. SMT 
THE VALUES OF NE MUST BE FROM SMALLEST TO LARGEST. SMT 

NO ELEMENT OF THE ARRAY NE CAN BE GREATER THAN N. SMT 

SMT 

NUMBER OF SUBSAMPLE SIZES FROM NE(8) THAT WILL BE USED TO SMT 
SECTION N. MUST BE BETWEEN 2 AND 8. SMT 

IT IS ALSO THE NUMBER OF BOXPLOTS THAT WILL BE PRODUCED. SMT 

SMT 

DEGREE OF REGRESSION FOR MEAN AND VARIANCE REGRESSIONS. SMT 

D WILL BE REDUCED BY SIMTB IF THE SAMPLE IS NOT LARGE SMT 

ENOUGH. D MUST BE 1 TO 6. D=0 WILL IGNORE REGRESSIONS. SMT 

SMT 

NO. OF RUNS TO REPEAT SIMTB (>=1) WITH A PAGE OF SMT 

SUMMARY STATISTCS AT THE END WHEN >1. SMT 

SMT 

*** SCALING *** SMT 

SCALING IS ACCOMPLISHED BY TAKING THE SMALLEST AND THE SMT 
LARGEST ESTIMATE VALUES FROM ALL ESTIMATING FUNCTIONS SMT 
EVALUATED ON THE SHORTEST SECTION LENGTH ( NE(1) ). SMT 

THE SEI PARAMETER ALLOWS THE USER TO SCALE THE GRAPHS SMT 
OF EACH ESTIMATOR INDIVIDUALLY OR TO SCALE THEM ALL TO SMT 
THE SAME SCALE. SCALING ALL TO THE SAME SCALE IS SMT 

ACCOMPLISHED BY TAKING THE MINIMUM AND MAXIMUM ESTIMATE SMT 
FROM ALL THE ESTIMATORS USING NE(1) SUBSAMPLE SIZE. SMT 



THE RG PARAMETER ALLOWS THE USER TO RREDUCE THE VER- SMT 
TICAL SCALE TO; THE UPPER QUARTILE DISTANCE +1.5 TIMES SMT 
INTERQUARTILE DISTANCE AS THE MAX VALUE AND THE LOWER SMT 
QUARTILE - 1.5 TIMES THE INTERQUARTILE DISTANCE AS THE SMT 
MIN VALUE. THE INTERQUARTILE DISTANCE IS COMPUTED FROM SMT 



THE SAMPLE OF ESTIMATES FROM THE NE(1) SUBSAMPLE SIZE. SMT 
IF THERE ARE NO ESTIMATES OUTSIDE THESE MIN AND MAX SMT 
VALUES THEN THE SCALE IS TO THE FIRST VALUE WITHIN. SMT 
IF THERE ARE ESTIMATES OUTSIDE THESE LIMITS THEN THEY SMT 
ARE COUNTED AND THE NUMBER PRINTED AT THE ENDS OF THE SMT 
BOX PLOTS. • SMT 



THE SVS PARAMET ALLOWS THE USER TO SET THE VERTICAL SMT 
SCALE. WHEN THE VERTICAL SCALE IS SET THE SEI PARAMETER SMT 
IS IGNORED AND THE VERTICAL SCALE BECOMES YMIN AND YMAX. SMT 



SMT 

SMT 

RG=0 DO NOT REDUCE THE VERTICAL SCALE OF THE GRAPHS. SMT 

RG=1 REDUCE GRAPHICS VERTICAL SCALE TO UPPER (LOWER) SMT 

QUARTILE + (-) INTERQUARTILE DISTANCE. SMT 

SMT 

SEI=0 DO NOT SCALE ESTIMATORS’ GRAPHS INDIVIDUALLY. SMT 

SEI=1 SCALE ESTIMATORS’ GRAPHS INDIVIDUALLY. SMT 

SMT 

SVS=0 PROGRAM WILL CALCULATE VERTICAL SCALE. SMT 

SVS=1 USER SETS VERTICAL SCALE TO YMIN AND YMAX. SMT 

SMT 

LOW VALUE OF VERTICAL SCALE. SET BY USER WHEN SVS=1 SMT 

SMT 

HIGH VALUE OF VERTICAL SCALE. SET BY USER WHEN SVS=1 SMT 

SMT 

NUMBER OF ESTIMATORS THAT WILL BE USED TO CALCULATE SMT 

STATISTICAL PARAMETER FROM X DATA. SMT 
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106 C 

107 C 

108 C 

109 C 

110 C 

111 C 

112 C 

113 C 

114 C 

115 C 

116 C 

117 C 

118 C 

119 C 

120 C 

121 C 

122 C 

123 C 

124 C 

125 C 

126 C 

127 C 

128 C 

129 C 

130 C 

131 C 

132 C 

133 C 

134 C 

135 C 

136 C 

137 C 

138 C 

139 C 

140 C 

141 C 

142 C 

143 C 

144 C 

145 C 

146 C 

147 C 

148 C 

149 C 

150 C 

151 C 

152 C 

153 C 

154 C 

155 C 

156 C 

157 C 

158 C 

159 C 

160 C 

161 C 



TTL1 

TTL2 

TTL3 

TTL4 

TTL5 

IFIL 



NPRT 



MSE 



VMSE 

IPR 



VMX1 

VMX2 

VMX3 

VMX4 

VMX5 

IBIV 



RSTRT 



ICOLOR 



IBWPRT 



NEST MUST BE 1,2, 3, 4 OR 5. 

TITLES ASSOCIATED WITH EACH ESTIMATOR (1 THRU 5). A MAX 
OF 120 CHARACTERS CAN BE USED TO DESCRIBE EACH ESTIMATOR. 
EACH TITLE MUST BE DECLARED AS CHARACTER* 120 STRINGS 



SMT 

SMT 

SMT 

SMT 



SMT 

0 - DO NOT RECORD STATS. FROM EACH SUPER REPL. ON FILE SMT 

1 - RECORD STATISTICS ON FILE UNIT 1 FOR FURTHER PROCESSNGSMT 

UNIT 1 FILE IS SEQUENTIAL, FORMATTED. THE DATA PLACED SMT 
IN THE FILE INCLUDES LABELS SMT 

SMT 

0 - PRINT DETAIL FOR UP TO 3 SUPER REPLICATIONS SMT 

AND PRINT NORMALIZED QUANTILE PLOTS (STANDARD SETTING) SMT 

1 - PRINT ONLY 1 SUPER REPL. AND NO NORMALIZED QUANTILE SMT 

SMT 

0 - DO NOT PRINT MEAN SQUARED ERRORS USING VMSE MATRIX SMT 

1 - PRINT MEAN SQUARED ERRORS WITH VMSE MATRIX SMT 

SMT 

MATRIX 8X5 WITH KNOWN MEANS ON EACH COL. FOR EACH ESTIMATORSMT 

SMT 

0 - DO NOT PRINT PERCENTILE PLOTS SMT 

1 - PRINT PERCENTILE PLOTS SMT 

SMT 

3 MATRICES 8X4 EACH WITH VALUES FOR PERCENTILE PLOTS SMT 

EACH REPRESENTING 8 VALUES FOR EACH SECTION SIZE SMT 

(IF L<8 PAD WITH ZEROES). 4 SUCH SETS MUST BE ENTERED SMT 
FOR EACH MATRIX SMT 



SMT 

0 - DO NOT PRINT BIVARIATE HISTOGRAMS SMT 

1 - PRINT BIVARIATE HISTOGRAMS SMT 

SMT 

0 - THIS IS NOT A RESTART RUN. SMT 

1 - THIS IS A RESTART RUN. AT THE END SAVE RESTART SMT 

VALUES ON UNIT 2. AT THE BEGINNING READ UNIT 2 SMT 

AND CONTINUE EXECUTION AT THE SUPER-REPLICATION SMT 

WHERE IT WAS LEFT OFF. IF NO FILE EXISTS FOR SMT 

FOR UNIT 2 IT WILL ASSUME THIS IS THE FIRST RUN. SMT 

UNIT 2 SHOULD BE OPENED BY THE CALLING PROGRAM IF SMT 

A DIFFERENT NAME OF THE FORTRAN DEFAULT IS TO BE SMT 

USED. ON VM/CMS A FILEDEF WILL DO THE SAME. SMT 

SMT 

THE RESTART FILE IS TYPE SEQUENTIAL UNFORMATTED, AND SMT 
CAN ONLY BE READ BY A FORTRAN PROGRAM. USE UNIT 2 SMT 

FOR STATISTICS FILE. DEFAULT UNFORMATTED RECORD SMT 

LENGTH OF 1024 BYTES IS ADEQUATE. 

SMT 

0 - NO COLOR PRINTOUT 

1 - PRINT COLOR COMBINATION OF ESTIMATORS FOR THE 

ESTIMATORS FOR UP TO THREE SAMPLE SIZES (NEED AT 
LEAST 2 TO MAKE SENSE). THIS IS IN ADDITION TO 
THE REGULAR PRINTOUTS, WHICH ARE FLAGGED SEPARATELY. 



0 - DO NOT PRINT THE STANDARD PRINTOUTS. 
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1 - PRINT THE STANDARD PRINTOUTS. 



162 C 

163 C 

164 C 

165 C 

166 C 

167 C 

168 C 

169 C 

170 C 

171 C 

172 C 

173 C 

174 C 

175 C 



NOTE: IF BOTH ICOLOR AND IBWPRT ARE ZERO, NO PRINTOUTS 

OCCUR. 

NCPRT - NUMBER OF SAMPLE SIZES FOR WHICH TO PRINT COLOR BOXPLOT 
COMBINATIONS. MUST BE 1,2, OR 3. 

NCOLRNDX( ) - ARRAY INDEX TO NE(*); USE THESE SAMPLE SIZES FOR COLOR 
BOXPLOTS 



176 C************************************^*^*******************^*********SMT 



177 C 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 
217 



SMT 



SUBROUTINE SMTBED( ISEED1 , ISEED2 , ISEED3 , ISEED4 , ISEED5 , 

* Y,N,M,NE ,L,D,NSR,RG, SEI , SVS , YMIN, YMAX,NEST,GEST1 ,TTL1 ,GEST2 ,TTL2 

* GEST3 , TTL3 , GEST4 , TTL4 , GEST5 , TTL5 , IFIL , NPRT , 

* MSE , VMSE , IPR , VMX 1 , VMX2 , VMX3 , VMX4 , VMX5 , 

* IB IV , RSTRT , ICOLOR , IBWPRT , NCPRT , NCOLRNDX) 

PARAMETER (NBROWS=500) 

real*8 ISEED1 , ISEED2 , ISEED3 , ISEED4 , ISEED5 , ISEED 
CHARACTER* 1 COLRPLT( 122,50,5), COLRXIS( 122 , 2 ) , BLK 
CHARACTER* 120 TTL1 , TTL2 , TTL3 , TTL4 , TTL5 
CHARACTER*8 LABEL( 7 ) 

REAL Y(1),GV(2), VMSE(8,5) ,BA(7) ,BS(7) ,BV(7) ,V(7) 

REAL VMX1( 8 , 4) , VMX2(8,4), VMX3(8,4) , COLRSTAT( 8 , 7 , 5 ) 

REAL VMX4 (8,4) , VMX5 (8,4) 

REAL B I V 1 ( NBROWS ,8) ,BIV2( NBROWS ,8) ,BIV3( NBROWS ,8) ,BIV4( NBROWS , 8 ) 
REAL TX(NBROWS), TY( NBROWS) ,DLH( 4) 

INTEGER NE( 8) ,RG,SEI ,SVS,SM, IFIL 
INTEGER D,L, NEST, TEST, IBPTR(8) 

INTEGER RSTRT, NNE ( 8 ) , NCOLRNDX(3) 

REAL VYMAX(5) ,VYMIN(5) 

REAL* 8 GST1( 8 ,7,2), GPV1(8,11,2) 

GPV2( 8,11,2) 

GPV3( 8,11,2) 

GPV4( 8,11,2) 

GPV5( 8,11,2) 

GBV1( 7,2), GBS1( 7,2), 

GBV2( 7,2), GBS2( 7,2), 

GBS3( 7 , 2) , 

GBS4( 7,2), 

GBS5( 7,2), 

GPV1/ 176*0. DO/ 

GPV2/176*0. DO/ 

GPV3/176*0. DO/ 

GPV4/ 176*0. DO/ 

GPV5/176*0. DO/ 

GBV1/14*0. DO/, GBS1/ 14*0. 

GBV2/ 14*0. DO/ , 

GBV3/14*0. DO/, 

GBV4/ 14*0. DO/, 

GBV5/14*0. DO/, 



REAL* 8 
REAL*8 
REAL* 8 
REAL*8 
REAL* 8 
REAL*8 
REAL*8 
REAL* 8 
REAL*8 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



GST2( 8,7,2) , 
GST3( 8,7,2) , 
GST4( 8,7,2) , 
GST5( 8 ,7,2) , 
GBA1( 7,2) , 
GBA2( 7,2), 
GBA3( 7,2) , 
GBA4( 7,2), 
GBA5( 7,2), 
GST1/ 1 12*0. DO/, 
GST2/ 112*0. DO/, 
GST3/ 1 12*0. DO/, 
GST4/ 112*0. DO/, 
GST5/ 112*0. DO/, 
GBA1/ 14*0. DO/, 
GBA2/ 14*0. DO/ , 
GBA3/ 14*0. DO/, 
GBA4/ 14*0. DO/, 
GBA5/14*0. DO/, 
BLK/’ '/ 



GBV3( 7,2) , 
GBV4( 7,2), 
GBV5( 7,2) , 



GW 1(7,2) 
GVV2( 7,2) 
GW3( 7,2) 
GW4( 7,2) 
GVV5 (7,2) 



DO/, 
GBS2/14*0. DO/ , 
GBS3/14*0. DO/, 
GBS4/ 14*0. DO/, 
GBS5/14*0. DO/ , 



GVV1/ 14*0. DO/ 
GW2/ 14*0. DO/ 
GVV3/14*0. DO/ 
GW4/ 14*0. DO/ 
GVV5/ 14*0. DO/ 



SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 

SMT 
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218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 



C SI 

C --- SAVE BASIC RUN PARAMETERS & TITLES ON STATISTICS FILE SI 

IF(IFIL .EQ. 1) WRITE ( 1 ,560 )N,M,NE,L,D,NSR, NEST, TTL1 ,TTL2,TTL3, SI 

*TTL4,TTL5 

560 FORMATC SAMPLE SIZE: I 10 REPLICATIONS: ',110, 

* /'SUBSAMPLE SIZES: '/8I 10/' L = ' I 10 ,' DEGREE REG: ',110, 'SUPER 

*-REPS: ',110, /'NO. ESTIM. : f ,I10,/5(A120/)) 



C 

c 

c 

c 



•- DETERMINE CASE OF RESTART. 



INSR=1 



SI 

IRST=0 NO RESTART SI 

IRST=1 IS 1ST RUN (SAVE VALUES AT END) SI 
IRST=2 IS CONTINUATION OF PREVIOUS RUN SI 

SI 



555 



WRITE( 5 .555) 

format(' SMTBED - A Simulation Test Bed (Version 13.0, April 1988) 



9001 



*'/' (PC version) START OF RUN') 

IF THERE IS ONLY ONE ESTIMATOR, CAN'T COMBINE FOR COLOR OUTPUT 
IF(NEST. EQ. 1) IC0L0R=0 
IRST=RSTRT 

IF(RSTRT .EQ. 0) GO TO 9004 
REWIND 2 

READ( 2 ,END=9003) NN,MM,NNE ,LL, IDD,NNSR,NNEST,NSEI , 

* ISEED1 , ISEED2 , ISEED3, ISEED4, ISEED5 ,VYMIN, VYMAX 
IF(NN. NE.N .OR. MM. NE. M .OR. LL. NE. L .OR. IDD. NE. D .OR. 

* NSR. LE.NNSR .OR. NSEI.NE.SEI .OR. NNEST. NE. NEST) GO TO 9002 
DO 9001 1=1,8 

IF(NNE( I ) . NE. NE( I ) ) GO TO 9002 
CONTINUE 
IRST=2 



SI 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

SI 



c 

C THESE READ STATEMENTS ARE BROKEN UP SO THE DEFAULT UNFORMATTED 
C RECORD LENGTH WILL HOLD THE DATA, AND THE USER DOESN'T HAVE TO 
C WORRY WITH RUNTIME PARAMETERS ON HIS COMPILED PROGRAM 
C 

READ(2,END=9006)( (GPV1( I , J, 1) ,1=1,8) , J=l, 11) 

READ( 2 ,END=9006)( (GPV1( I , J, 2) , 1=1 , 8) , J=1 , 11) 

READ( 2 ,END=9006)GST1 

READ( 2 ,END=9006)GBA1 ,GBV1 ,GBS1 ,GVV1 SI 



IF(NEST .GE. 2) THEN 

READ( 2 ,END=9006)( ( GPV2( I , J, 1) , 1=1,8) , J=1 , 11) 

READ( 2 ,END=9006)( ( GPV2( I , J, 2) , 1=1 ,8) ,J=1,11) 

READ( 2 ,END=9006)GST2 

READ( 2 , END=9006 ) GBA2 , GBV2 , GBS2 , GVV2 SI 

ENDIF 

IF(NEST .GE. 3) THEN 

READ( 2 ,END=9006) ( (GPV3( I , J, 1) , 1=1,8) , J=1 ,11) 

READ( 2 ,END=9006)( (GPV3( I , J, 2) , 1=1 ,8) , J=1 ,11) 

READ( 2 ,END=9006)GST3 

RE AD( 2 , END=9006) GBA3 , GBV3 , GBS3 , GW3 SI 

ENDIF 

IF(NEST .GE. 4) THEN 

RE AD( 2 , END=90 06 ) ( ( GPV4 ( I , J , 1 ) , 1=1 , 8 ) , J=1 , 1 1 ) 

READ( 2 ,END=9006) ( ( GPV4( I , J, 2) , 1=1,8) ,J=1,11) 

READ( 2 ,END=9006)GST4 

READ( 2 , END=9006 ) GBA4 , GBV4 , GBS4 , GW4 SI 

ENDIF 
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IF(NEST .GE. 5) THEN 
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READ( 2 ,END=9006) ( (GPV5( I,J,1),I=1,8),J=1,11) 
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READ(2,END=9006)((GPV5(I, J,2) ,1=1,8) ,J=1,11) 
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READ( 2 ,END=9006)GST5 




278 






READ( 2 , END=9006 ) GBA5 , GBV5 , GBS5 , GW5 


SMT 


279 






ENDIF 




280 


C 


— 


FIX VERTICAL SCALE TO USE YMIN,YMAX COMPUTED IN PREVIOUS RUN 


SMT 


281 






SVS=1 


SMT 


282 


C 


— 


START SUPER-REPLICATIONS COUNT FOLLOWING WHERE LEFT OFF 


SMT 


283 






INSR=NNSR+1 


SMT 


284 






GO TO 50 


SMT 


285 




9002 


CONTINUE 


SMT 


286 


C 


— 


ERROR IN A RESTART RUN. NEW PARMS NOT COMPATIBLE WITH OLD ONES 


SMT 


287 






WRITE (5 , ,v ) 'ARGUMENTS FOR RESTART DO NOT AGREE WITH VALUES ', 
• 'FOUND ON FILE UNIT 2. THEY ARE: ' 


SMT 


288 




* 


SMT 


289 






WRITE( 5 ,*) ' N , M . L , D , NSR , NEST , SE 1= ' ,NN,MM,LL,IDD,NNSR,NNEST,NSEI 
WRITE(5 , ,v ) 'NE: , (NNE(I), 1=1, LL) 


SMT 


290 






SMT 


291 






STOP 


SMT 


292 


C 


— 


TABLES NOT PRESENT FOR ALL ESTIMATORS 


SMT 


293 




9006 


CONTINUE 


SMT 


294 






WRITE (5 ,*) ' *** ERROR: RESTART FILE DOES NOT HAVE TABLES FOR', 


SMT 


295 




* ' ALL ESTIMATORS' 


SMT 


296 






STOP 


SMT 


297 


C 






SMT 


298 


9003 


CONTINUE 


SMT 


299 


C 


— 


RESTART FILE NOT EXISTENT. ASSUME 1ST RUN 


SMT 


300 






IRST=1 


SMT 


301 


9004 


CONTINUE 


SMT 


302 


C 






SMT 


303 


C 


SET SEI TO 0 FOR NO INDIVIDUAL SCALING IF WE ARE DOING COLOR PLOTS 




304 


C 








305 






IF( ICOLOR. EQ. 1)SEI=0 




306 


C 








307 






IFCSVS.EQ. 1) THEN 


SMT 


308 






DO 9011 1=1,5 


SMT 


309 






VYMAX( I )=YMAX 


SMT 


310 






VYMIN( I )=YMIN 


SMT 


311 




9011 


CONTINUE 


SMT 


312 






ENDIF 


SMT 


313 






SM=NE( 1 ) 


SMT 


314 






MN = M*N 


SMT 


315 






LT=L-1 


SMT 


316 






IF( LT. EQ. 0) GO TO 13 


SMT 


317 






DO 11 1=1, LT 


SMT 


318 






11=1+1 


SMT 


319 






IF(NE( I) . GT. NE( 11) ) WRITE ( 6,110) 


SMT 


320 




11 


CONTINUE 


SMT 


321 




13 


TEST=0 


SMT 


322 






IF(NEST. EQ. 1 .OR. NEST. EQ. 2 .OR. NEST. EQ. 3. OR. NEST. EQ. 4. OR. 




323 




i; 


■ NEST. EQ. 5) GO TO 2 


SMT 


324 






WRITE(5 , 106) 


SMT 


325 






TEST=1 


SMT 


326 


2 




IF(M.GE. l.AND.M.LE. 100) GO TO 3 


SMT 


327 






WRITE( 5 , 104) 


SMT 


328 






TEST=1 


SMT 


329 


3 




IF(L. GE. 1. AND.L. LE. 8) GO TO 4 


SMT 
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330 

331 

332 4 

333 

334 

335 5 

336 

337 

338 

339 6 

340 

341 

342 

343 7 

344 

345 C 

346 C 

347 

348 C 

349 C 

350 C 

351 

352 

353 C 

354 

355 

356 

357 

358 

359 

360 C 

361 C 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 C 

372 C 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 C 

383 C 

384 

385 



WRITE(5 , 103) SMT 

TEST=1 SMT 

IF(D. LE. 6) GO TO 5 SMT 

WRITE( 5 , 108) SMT 

TEST=1 SMT 

CONTINUE SMT 

IF(NE(L) . LT. N) GO TO 6 SMT 

WRITE(5 , 107) SMT 

TEST=1 SMT 

CONTINUE SMT 

IF(NSR . GE. 1) GO TO 7 SMT 

WRITE(5 , 111) SMT 

TEST=1 SMT 

CONTINUE SMT 

IF (TEST. NE. 0) GO TO 8001 SMT 

SMT 

BYPASS SCALE CALCULATION WHEN FIXED SMT 

IF (SVS .EQ. 1) GO TO 50 SMT 

* COMPUTE SCALE FOR EACH ESTIMATOR SMT 

*****^V*?V*V«V*^VV«V*^V*yf*^V7V**Vf*****^V^V^V**^V**^V*********^V^^V*^*** , >V , >V***^rg{^ , f 

ISEED=ISEED1 SMT 

DO 10 IK=1 , 1 SMT 

FIND VERTICAL SCALE FOR 1ST ESTIMATOR. SMT 

CALL SECEST(GEST1 , ISEED,N,M,NE( IK) ,Y,KP) SMT 

IF(RG.EQ. 1) CALL DELETO(Y,KP, VYMAX( 1) ,VYMIN( 1) ) SMT 

IF(RG.NE. 1) CALL MAXMIN(Y,KP, VYMAX( 1) ,VYMIN( 1) ) SMT 

YMIN=VYMIN( 1) SMT 

YMAX=VYMAX( 1) SMT 

10 CONTINUE SMT 

SMT 

FIND VERTICAL SCALE FOR 2ND ESTIMATOR. SMT 

IF(NEST .LT. 2) GO TO 40 SMT 

ISEED=ISEED2 SMT 

DO 20 IK=1 , 1 SMT 

CALL SECEST( GEST2 , ISEED,N ,M ,NE( IK) , Y,KP) SMT 

IF(RG.EQ. 1) CALL DELETO( Y,KP , VYMAX( 2) , VYMIN( 2) ) SMT 

IF(RG.NE. 1) CALL MAXMIN(Y,KP,VYMAX(2),VYMIN(2)) SMT 

YMIN=AMIN1( YMIN, VYMIN(2)) SMT 

YMAX=AMAX 1 ( YMAX , VYMAX(2)) SMT 

20 CONTINUE SMT 

SMT 

FIND VERTICAL SCALE FOR 3RD ESTIMATOR. SMT 

IF(NEST .LT. 3) GO TO 40 SMT 

ISEED=ISEED3 SMT 

DO 30 IK=1 , 1 SMT 

CALL SECEST(GEST3,ISEED,N,M,NE(IK),Y,KP) SMT 

IF(RG.EQ. 1) CALL DELETO( Y,KP , VYMAX( 3) , VYMIN( 3) ) SMT 

IF(RG. NE. 1) CALL MAXMIN( Y,KP, VYMAX( 3) , VYMIN( 3) ) SMT 

YMIN=AMIN1(YMIN, VYMIN(3)) SMT 

YMAX=AMAX 1 ( YMAX , V YMAX ( 3 ) ) SMT 

30 CONTINUE SMT 

SMT 

FIND VERTICAL SCALE FOR 4TH ESTIMATOR. ' SMT 

IF(NEST .LT. 4) GO TO 40 SMT 

ISEED=ISEED4 SMT 
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386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 



DO 31 IK=1 , 1 SMT 

CALL SECEST(GEST4, ISEED,N,M,NE( IK) , Y,KP) SMT 

IF(RG.EQ.l) CALL DELET0(Y,KP,VYMAX(4),VYMIN(4)) SMT 

IF(RG. NE. 1) CALL MAXMIN(Y,KP,VYMAX(4) ,VYMIN(4)) SMT 

YMIN=AMIN1( YMIN, VYMIN(4)) SMT 

YMAX= AM AX 1 ( YMAX , VYMAX(4)) SMT 

31 CONTINUE SMT 

C 

C FIND VERTICAL SCALE FOR 5TH ESTIMATOR. SMT 

IF(NEST .LT. 5) GO TO 40 SMT 

ISEED=ISEED5 SMT 

DO 32 IK=1 , 1 SMT 

CALL SECEST(GEST5 , ISEED,N,M,NE( IK) ,Y,KP) SMT 

IF(RG. EQ. 1) CALL DELETO(Y,KP, VYMAX(5) ,VYMIN(5) ) SMT 

IF(RG.NE.l) CALL MAXMIN( Y,KP, VYMAX(5) , VYMIN(5) ) SMT 

YMIN=AMIN1( YMIN, VYMIN(5)) SMT 

YMAX=AMAX 1 ( YMAX , VYMAX ( 5 ) ) SMT 

32 CONTINUE SMT 

40 CONTINUE SMT 



C --- WHEN SCALE IS SAME FOR ALL USE WIDEST OF ALL THREE SCALES FOUND SMT 



IF( SEI .EQ. 0) THEN SMT 

DO 41 IK=1 ,5 SMT 

VYMIN( IK)=YMIN SMT 

VYMAX ( IK)=YMAX SMT 

41 CONTINUE SMT 

ENDIF SMT 

C SMT 

C SMT 

C PROCESS BOXPLOTS USING VERTICAL SCALE AS DETERMINED SMT 

C ONE CALL FOR EACH ESTIMATOR USED. SMT 

50 CONTINUE SMT 

C CLEAR COLOR PLOT ARRAY 

CALL CLRCOLR( COLRPLT) SMT 

GV( 1)=VYMIN( 1) SMT 

GV( 2)=VYMAX( 1) SMT 

WRITE(5 ,552) 

552 FORMAT(/' PROCESSING ESTIMATOR # l') 

CALL PRST( GEST1 , 1 SEED 1 ,N ,M ,NE , L,RG ,D, VYMIN( 1) , VYMAX( 1) , SMT 

* Y,GV,TTL1 ,NSR, IFIL, NPRT,MSE , VMSE( 1,1), IPR,VMX1, SMT 

* IBIV,IBPTR,BIV1, INSR, GPV1 , GST1 , GBA1 ,GBV1 ,GBS1 , GVV1 , 

* IBWPRT,NCPRT,NCOLRNDX,COLRXIS , 1 ,NEST, SMT 

* COLRPLT , COLRSTAT , B A , B V , B S , V , DLH , VSCALE , IWIDTH , LABEL) 

C SMT 

IF (NEST. LT. 2) GO TO 80 SMT 

WRITE(5,553) 

553 FORMAT(/' PROCESSING ESTIMATOR #2') 

CALL PRST(GEST2,ISEED2,N,M,NE,L,RG,D,VYMIN(2) ,VYMAX(2) , SMT 

* Y,GV,TTL2 ,NSR, IFIL, NPRT,MSE , VMSE( 1,2), IPR,VMX2, SMT 

* IBIV, IBPTR,BIV2 , INSR,GPV2 ,GST2 ,GBA2,GBV2 ,GBS2 ,GVV2 , SMT 

* IBWPRT , NCPRT , NCOLRNDX , COLRXIS , 2 , NEST , 

* COLRPLT , COLRSTAT , BA , B V , BS , V , DLH , VSCALE , IWIDTH , LABEL) 

C SMT 

IF (NEST. LT. 3) GO TO 80 SMT 

WRITE( 5 ,554) 

554 FORMAT(/' PROCESSING ESTIMATOR # 3’) 

CALL PRST(GEST3 , ISEED3,N,M,NE , L,RG,D, VYMIN(3) , VYMAX( 3) , SMT 
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442 * Y,GV,TTL3 ,NSR, IFIL, NPRT, MSE ,VMSE( 1,3), IPR,VMX3, SMT 

443 * IBIV, IBPTR, BIV3 , INSR,GPV3,GST3,GBA3,GBV3,GBS3,GVV3, SMT 

444 * IBWPRT , NCPRT , NCOLRNDX , COLRXI S , 3 , NEST , 

445 * COLRPLT , COLRSTAT , BA , BV , BS , V , DLH , VSCALE , IWIDTH , LABEL) 

446 C SMT 

447 IF (NEST. LT. 4) GO TO 80 SMT 

448 WRITE(5 ,556) 

449 556 FORMATC/' PROCESSING ESTIMATOR # 4’) 

450 CALL PRST(GEST4,ISEED4,N,M,NE,L,RG,D,VYMIN(4),VYMAX(4), SMT 

451 * Y,GV,TTL4,NSR, IFIL, NPRT , MSE , VMSE (1,4), IPR,VMX4, SMT 

452 * IBIV, IBPTR, BIV4, INSR , GPV4 , GST4 , GBA4 , GBV4 , GBS4 , GW4 , SMT 

453 * IBWPRT, NCPRT, NCOLRNDX, COLRXIS, 4, NEST, 

454 * COLRPLT, COLRSTAT, BA, BV,BS,V, DLH, VSCALE, IWIDTH, LABEL) 

455 C SMT 

456 IF (NEST. LT. 5) GO TO 80 SMT 

457 WRITE(5 ,557) 

458 557 FORMAT(/' PROCESSING ESTIMATOR #5') 

459 CALL PRST(GEST5 , ISEED5 ,N,M,NE,L,RG,D,VYMIN(5) ,VYMAX(5) , SMT 

460 * Y,GV,TTL5 ,NSR, IFIL, NPRT, MSE, VMSE( 1,5) , IPR,VMX5, SMT 

461 * IBIV, IBPTR, BIV4, INSR,GPV5 ,GST5 ,GBA5 ,GBV5 ,GBS5 ,GVV5 , SMT 

462 * IBWPRT, NCPRT, NCOLRNDX, COLRXIS, 5, NEST, 

463 * COLRPLT, COLRSTAT, B A, BV,BS,V, DLH, VSCALE, IWIDTH, LABEL) 

464 C SMT 

465 80 CONTINUE SMT 

466 C 

467 C IF COLOR FLAG NOT SET, SKIP COLOR OUTPUT SECTION 



468 C IF WE ARE ON SECOND STAGE OF A RESTART RUN, DON’T DO THE COLOR PART. 

469 IF(ICOLOR. EQ. 0. OR. IRST. EQ. 2)GOTO 340 

470 C 

471 C OUTPUT SECTION FOR COLOR COMBINED BOXPLOTS 

472 C OUTPUT SECTION FOR COLOR COMBINED BOXPLOTS 

473 C OUTPUT SECTION FOR COLOR COMBINED BOXPLOTS 

474 C OUTPUT SECTION FOR COLOR COMBINED BOXPLOTS 

475 C 

476 C 

477 

478 325 

479 

480 

481 

482 

483 

484 622 

485 

486 

487 

488 

489 

490 

491 

492 

493 322 

494 

495 

496 

497 



WRITE (6 ,325)N,M,D 

FORMAT( ’ 1 ’ , 5X , ’ SMTB COMBINED ESTIMATOR BOXPLOTS: SAMPLE SIZE:’ 

* ,17,' NO. REPLICATIONS: ',14,' DEG REGRESSION: ',12/' ’ , 131( ’ - ' ) ) 

DO 303 K=50 ,1,-1 
IF(MOD(K,5). NE. 0)GO TO 304 
YLABEL=(K-DLH( 2) ) /VSCALE+YMIN 
WRITE( 6 , 622)YLABEL 
FORMATC ',G8. 2,’-') 

CALL SETCOLR(l) 

WRITE( 6 , 322) ( COLRPLT( I ,K, 1) , 1=1 , IWIDTH) 

WRITE( 6 , 322 ) ( COLRPLT( I , K , 1 ) , 1=1 , IWIDTH) 

CALL SETCOLR(O) 

WRITE( 6 , 364) 

CALL SETCOLR( 2) 

WRITE ( 6 , 322 ) ( COLRPLT( I , K , 2 ) , 1=1 , IWIDTH) 

WRITE( 6 , 322) ( COLRPLT( I ,K , 2 ) , 1=1 , IWIDTH) 

FORMAT( '+' ,9X, 122A1) 

CALL SETCOLR(6) 

WRITE ( 6 , 322) ( COLRPLT( I ,K , 3) , 1=1 , IWIDTH) 

WRITE( 6 , 322) (COLRPLT( I ,K, 3) , 1=1 , IWIDTH) 

CALL SETCOLR( 3) 
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WRITE( 6 ,322) (C0LRPLT( I ,K,4) , 1=1 , IWIDTH) 
WRITE(6,322)(C0LRPLT( I ,K,4) ,1=1, IWIDTH) 
CALL SETCOLR(O) 

WRITE(6,322)(C0LRPLT( I ,K,5) , 1=1, IWIDTH) 
WRITE ( 6 , 322 ) ( COLRPLT( I , K , 5 ) , 1=1 , IWIDTH) 
GOTO 303 
304 CONTINUE 

WRITE(6,363) 

363 F0RMAT(9X, ' ) 

CALL SETCOLR(l) 

WRITE( 6 , 322) ( COLRPLT( I ,K, 1) , 1=1 , IWIDTH) 
WRITE( 6 , 322) (COLRPLT( I ,K, 1) , 1=1 , IWIDTH) 
CALL SETCOLR(O) 

WRITE( 6 , 364) 

364 FORMATC ' + ' , 131X, ' | ' ) 

CALL SETCOLR( 2) 

WRITE( 6 , 322) (COLRPLT( I ,K,2) , 1=1, IWIDTH) 
WRITE( 6 , 322) (COLRPLT( I ,K,2) , 1=1 , IWIDTH) 
CALL SETCOLR( 6) 

WRITE( 6 , 322 ) ( COLRPLT( I , K , 3) , 1=1 , IWIDTH) 
WRITE( 6 ,322) (COLRPLT( I ,K,3) , 1=1 , IWIDTH) 
CALL SETCOLR( 3) 

WRITE( 6 ,322) (COLRPLT( I ,K,4) , 1=1 , IWIDTH) 
WRITE( 6 , 322 ) ( COLRPLT( I , K , 4 ) , 1=1 , IWIDTH) 
CALL SETCOLR(O) 

WRITE( 6 ,322)(COLRPLT( I ,K,5) , 1=1 , IWIDTH) 
WRITE ( 6 , 322 ) ( COLRPLT( I , K , 5 ) , 1=1 , IWIDTH) 
303 CONTINUE 

CALL SETCOLR(O) 

WRITEC 6 , 326) ( C0LRXIS( 1,1), 1=1 , IWIDTH) 

326 FORMAT(9X, '+' ,122A1, ' + ' ) 

WRITE( 6 ,327) (C0LRXIS( I , 2) , 1=1 , IWIDTH) 

327 FORMAT( 10X, 122A1) 

DO 390 J = 1 NEST 

WRITE ( 6 , 3 7 6 ) ( NE ( NCOLRNDX( I ) ) , 1= 1 , NCPRT) 

370 FORMATC' OSUBSAMPLE SIZE: ' , 18X , 3( 18 ,6X) ) 

WRITE( 6 , 37 1) J , ( COLRSTAT( NCOLRNDX( I ) , 1 , J) , 

371 FORMATC ESTIMATOR ',11,': MEAN: ' ,8X, 

WRITE ( 6 , 3 72 ) ( COLRSTAT( NCOLRNDX( I ) , 2 , J) , 1= 

372 FORMATC ',15X,'STD: ' ,8X,3G14. 4) 

WR ITE ( 6 , 3 7 3 ) ( COLRSTAT( NCOLRNDX( I ) , 3 , J) , 1= 

373 FORMATC ' , 15X , ' STD MEAN: ' , 5X , 3G14. 4) 

390 CONTINUE 

IF(NEST. GE. 1)THEN 
WRITE(6,374) 

374 FORMATC ' OESTIMATOR 1: ' ) 

CALL SETCOLR(l) 

WRITEC 6 , 375)TTL1 
WRITE(6,375)TTL1 

375 FORMATC' +' ,14X,A120) 

CALL SETCOLRC 0) 

ENDIF 

IFCNEST. GE. 2) THEN 
WRITEC 6 ,376) 

CALL SETCOLRC 0) 

376 FORMATC ' ESTIMATOR 2: ' ) 



1=1, NCPRT) 
3G14. 4) 

1, NCPRT) 

1, NCPRT) 
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CALL SETC0LR( 2) 
WRITE(6,375)TTL2 
WRITE( 6 ,375)TTL2 
CALL SETCOLR(O) 

ENDIF 

IF(NEST. GE. 3) THEN 
WRITE ( 6 ,377) 

377 FORMAT( ' ESTIMATOR 3: ' ) 

CALL SETCOLR( 6 ) 
WRITE(6,375)TTL3 
WRITE ( 6 , 375)TTL3 
CALL SETCOLR(O) 

ENDIF 

IF(NEST. GE. 4) THEN 
WRITE( 6,378) 

378 FORMAT( ' ESTIMATOR 4: ' ) 

CALL SETCOLR( 3) 
WRITE(6,375)TTL4 
WRITE(6,375)TTL4 
CALL SETCOLR(O) 

ENDIF 

IF(NEST. GE. 5) THEN 
WRITE( 6 , 379 ) 

379 FORMAT(' ESTIMATOR 5: ' ) 

CALL SETCOLR(O) 
WRITE( 6 ,375)TTL5 
WRITE(6,375)TTL5 



ENDIF 

C THIS IS THE LAST LINE OF OUTPUT. IF NO COLOR, PUT IN ON LAST SHEET. 
C END UP HERE IF DOING RESTART, OR NO COLOR OUTPUT. 



340 


WRITE(6, 122) 


GV 


SMT 


C --- 


SAVE RESTART 


INFORMATION 


SMT 




IF( IRST . GT. 


0) THEN 


SMT 




REWIND 2 




SMT 



C THESE WRITE STATEMENTS ARE BROKEN UP SO THE DEFAULT UNFORMATTED 
C RECORD LENGTH WILL HOLD THE DATA. THE USER IS THEN UNCONCERNED WITH 
C RUNTIME PARAMETERS TO CHANGE THE RECORD LENGTH (R/M FORTRAN) 

C 

WRITE ( 2 ) N , M , NE , L , D , NSR , NEST , SE I , ISEED1 , ISEED2 , I SEED3 , I SEED4 , 

* I SEED5 , VYMIN , VYMAX SMT 

WRITE( 2)( (GPV1( I , J, 1) ,1=1,8) ,J=1,11) 

WRITE ( 2) ( ( GPV1( I , J , 2 ) , 1=1 , 8) , J=1 ,11) 

WRITE ( 2)GST1 

WRITE( 2 )GBA1 , GBV1 , GBS1 , GVV1 SMT 

IF(NEST .GE. 2) THEN 

WRITEC 2)( ( GPV2( I , J, 1) , 1=1,8) , J=1 ,11) 

WRITE ( 2) ( ( GPV2( I , J , 2 ) , 1=1 , 8) , J=1 , 11) 

WRITE( 2 )GST2 

WRITE ( 2)GBA2 ,GBV2 ,GBS2 ,GW2 SMT 

ENDIF 

IF(NEST .GE. 3) THEN 

WRITE ( 2)( (GPV3( I , J, 1) , 1=1 ,8) , J=l, 11) 

WRITE( 2) ( (GPV3( I , J, 2) , 1=1 ,8) , J=l, 11) 

WRITE( 2 )GST3 

WRITE ( 2 ) GBA3 , GBV3 , GBS3 , GVV3 SMT 

ENDIF 
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IF(NEST . GE. 4) THEN 

WRITE( 2) ( (GPV4( I , J, 1) , 1=1 , 8) , J=1 , 11) 

WRITE( 2) ( (GPV4( I , J, 2) , 1=1 ,8) , J=1 ,11) 

WRITE( 2)GST4 

WRITE ( 2 ) GBA4 , GBV4 , GBS4 , GVV4 SMT 

END IF 

IF(NEST .GE. 5) THEN 

WRITE( 2) ( (GPV5( I, J, 1), 1=1, 8), J— 1,11) 

WRITE( 2)( (GPV5( I, J, 2), 1=1, 8) , J=1 ,11) 

WRITE( 2)GST5 



WRITE(2)GBA5,GBV5,GBS5,GVV5 SMT 

ENDIF 

WRITE( 6 ,*) '*** THIS WAS A RESTART RUN. NSR START/END=' ,INSR,NSR SMT 

ENDIF SMT 

C SMT 

C --- BIVARIATE HISTOGRAMS SMT 

C SMT 

IF( IBIV . EQ. 1 .AND. NEST. GT. 1) THEN SMT 

DO 120 K=1 ,L SMT 

IBP=IBPTR(K) SMT 

DO 201 1=1, IBP SMT 

TX( I )=BIV1( I ,K) SMT 

TY(I)=BIV2(I,K) SMT 

201 CONTINUE SMT 

C SMT 

WRITE( 6 , 123) 'BIVARIATE HISTOGRAM FOR ESTIMATORS 1 & 2. ' , SMT 

* ' SECTION SIZE=' ,NE(K) SMT 

CALL BIHSPC(TX,TY, IBP,Y) SMT 

WRITE (6,*) '1 - TTL1 SMT 

WRITE(6,*) '2 - TTL2 SMT 

C SMT 

IF(NEST . LT. 3) GO TO 120 SMT 

DO 202 1=1, IBP SMT 

TX( I )=BIV1( I ,K) SMT 

TY( I )=BIV3( I ,K) SMT 

202 CONTINUE SMT 

WRITE( 6 , 123) 'BIVARIATE HISTOGRAM FOR ESTIMATORS 1 & 3. ' , SMT 

* ' SECTION SIZE=' ,NE(K) SMT 

CALL BIHSPC(TX,TY, IBP,Y) SMT 

WRITE( 6 ,*) '1 - ', TTL1 SMT 

WRITE (6,*) '3 - ', TTL3 SMT 

C SMT 

DO 203 1=1, IBP SMT 

TX(I)=BIV2(I,K) SMT 

TY( I )=BIV3( I ,K) SMT 

203 CONTINUE SMT 

WRITE( 6 , 123) 'BIVARIATE HISTOGRAM FOR ESTIMATORS 2 & 3. ' , SMT 

* ' SECTION SIZE=' , NE ( K ) SMT 

CALL BIHSPC(TX,TY, IBP,Y) SMT 

WRITE( 6 ,*) '2 - ', TTL2 SMT 

WRITE( 6 ,*) '3 - ', TTL3 SMT 

120 CONTINUE SMT 

ENDIF SMT 

C JUMP TO HERE IF AN ERROR EXISTS IN THE INPUT DATA. RETURN . 

8001 CONTINUE 

C SMT 
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123 F0RMAT( ' l' ,A45, A13,I5) SMT 

122 F0RMAT(/' *** WIDEST Y VALUES FOUND: YMIN=' ,G10. 4, SMT 

* ' - YMAX=' ,G10. 4, ' *** SMTB ***') SMT 

103 FORMATC *** ERROR. . .L MUST BE AN INTEGER BETWEEN 2 AND 8. ***') SMT 

104 FORMATC *** ERROR. .. M MUST BE AN INTEGER BETWEEN 1 AND 100. ***')SMT 

106 FORMATC *** ERROR. .. NEST MUST BE 3 OR LESS. ***') SMT 

107 FORMATC *** ERROR. .. N/NE( L) MUST BE 1 OR GREATER TO COMPUTE', SMT 

+' STATISTICS. ' INCREASE N OR DECREASE NE(L). ***') SMT 

108 FORMATC *** ERROR. .. D MUST BE LESS THAN OR EQUAL TO 3. ***’) SMT 

110 FORMATC' *** WARNING... NE ARRAY ELLEMENTS ARE NOT IN ORDER OF '/ SMT 

+ ' INCREASING SIZE. IF NE(1) IS NOT SMALLEST ELEMENT, SCALING' /SMT 

+ ' MAY CAUSE POINTS TO FALL OUTSIDE RANGE OF SCALE. ' ) SMT 

111 FORMATC *** ERROR. . . NSR MUST NOT BE LESS THAN 1 ***') SMT 

END SMT 

C SMT 

SUBROUTINE PRST( GENEST , I SEED ,N,M,NE,L,RG,UD, YMIN , YMAX , Y , SMT 

* GV,TTL, NSR, IFIL, NPRT,MSE , VMSE , IPR,VMX, IBIV, IBPTR, BIV, SMT 

* INSR , GPVAL , GSTAT , GBA , GB V , GBS , GW , I BWPRT , NCPRT , NCOLRNDX , SMT 

* COLRXIS , IEST,NEST, 

* COLRPLT , COLRSTAT , BA , BV , BS , V , DLH , VSCALE , IWIDTH , LABEL) 

PARAMETER (NBR0WS=500) SMT 

C 

C REGRESSION ADJUSTED ESTIMATE SMT 

C CALCULATES ESTIMATES FROM USER DATA USING "EST" FUNCTION SMT 

C PLOTS BASIC OR RETRENCHED GRAPH ON LINE PRINTER SMT 

C * GENEST = SUBROUTINE GENERATE THE DATA AND PRODUCE ESTIMATE SMT 

C * I SEED = SEED FOR GENEST SMT 

C N = NUMBER OF VALUES IN EACH REPLICATION (M*N MUST BE <= 50000) SMT 

C M = NO. OF REPLICATIONS (MUST BE <= 100) SMT 

C Y = USERS VECTOR WITH M CONSECUTIVE BATCHES OF N VALUES EACH SMT 

C L = NO. OF SECTION SIZES (MUST BE BETWEEN 1 AND 8) SMT 

C NE = ARRAY WITH THE L SUBSAMPLE SIZES (MUST BE IN ASCENDING ORDER) SMT 

C UD = DEGREE OF THE REGRESSION (MUST BE <= 6 & <= L-l ) SMT 

C GV=WIDEST Y VALUES. PRINTED ON LAST PLOT TO AID IN SETTING SCALE SMT 

C NSR=NUMBER OF REPETITIONS OF THE PLOT (EXTRA SUMMARY PLOT WHEN >1)SMT 

C INSR=START SUPER-REPLICATION. NORMALLY 1 EXCEPT ON RESTART SMT 



C IEST=NUMBER OF ESTIMATOR WE ARE CURRENTLY DEALING WITH (1,2,0R3) 
C IBWPRT=0-N0 STD PRINTOUS - 1 STD PRINTOUTS 

C NCPRT=//OF SAMPLE SIZES FOR WHICH TO PRINT COLOR BOXPLOTS 

C N C 0 LRNDX= ARRAY INDX TO NE( ) FOR COLOR BOXPLOTS 

C COLRPLT=CHARACTER 3D ARRAY, 1 SHEET FOR EACH COLOR/ESTIMATOR 

C ICLRL0CX=2D ARRAY, LOCS OF BOXPLOTS IN EACH SHEET 
C COLRXI S=2DARRAY , CHAR. COLOR X AXIS 

C 
C 

real*8 I SEED 

INTEGER IBIV, IBPTR(8) ,NCOLRNDX( 3) , ICLRL0CX(5 , 3) 



CHARACTER* 120 TTL SMT 

CHARACTER* 1 PLOT( 122,50) , CBAR,BLK, DASH, DOT, SYM( 11) ,XAXIS( 122, 2) , SMT 
* COLRPLT( 122,50,5) ,COLRXIS( 122,2) ,TEMPLOT( 122 ,50) 

CHARACTER*8 LABEL( 7 ) SMT 

DIMENSION NE( 8) SMT 

INTEGER NB(8),L0CX(8),D1, IWIDTH, UD,D,LT,DT,RG, DA,D1A SMT 

REAL BIV(NBROWS ,8) ' SMT 

REAL* 4 PVAL( 8 , 11) , QVAL( 11) , VNORM( 11) , VMSE(8) SMT 

REAL*4 DLH(4) ,Y( 1) ,GV(2) , SVAR(8) ,C0LRSTAT(8,7,5) SMT 
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C 



C - 



REAL*4 RH( 8,100) ,STAT( 8 , 7 ) , VT( 8) , VMX( 8 ,4) , VXCNT( 8 ,4) SMT 

REAL*8 SUM2 , SUM3 , SUM4 SMT 

REAL*4 RA(8 ,7) ,RV( 8 , 7) ,B( 7 , 100) , V( 7) ,BA( 7) ,BV( 7) , BS( 7) ,RT( 8) , BT( 8)SMT 
INTEGER ISC0L( 5) SMT 

REAL* 8 GSTAT( 8,7,2), GPVAL(8, 11 ,2) SMT 

REAL* 8 XSTAT( 8,7,2), XPVAL( 8 , 11 ,2) SMT 

REAL* 8 GBA(7,2), GBV(7,2), GBS(7,2), GW(7,2) SMT 

REAL* 8 XBA( 7,2), XBV(7,2), XBS(7,2), XW(7,2) SMT 

DATA B/700*0. / SMT 

DATA BLK/' ’/, DASH/ ' - ' / , CBAR/'|'/, DOT/'. '/ SMT 

DATA ISCOL/1,2,4,5, 7/ SMT 

DATA SYM/'&' ,'$' ,'Q' ,'M' ,'Q' ,'%' ,'&'/, NSYM/11/ SMT 
DATA QVAL/. 01, .025, .05, .10, .25, .5, .75, .90, . 95 , . 975 , . 99/ SMT 
DATA VN0RM/-2. 33,-1. 96,-1. 645,-1. 29,-. 67, 0., SMT 

* .67,1.29,1.645,1.96,2.33/ SMT 



DATA ICSPCE/1/ 

JCSPCE=( ICSPCE+3)*NEST 
DO 401 1=1,7 
V(I)=0 
DLH( 1)=1. 

DLH(2)=1. 

DLH( 3) = 122. 

DLH(4)=50. 

LABEL(1)='MEAN' 

LABEL( 2)=' STD ' 

LABEL( 3)=' STD MEAN' 
LABELC 4)=' SKEWNESS' 
LABEL( 5 ) = ' KURTOS I S ' 
LABELC 6 )=' M. S. E ' 
LABELC 7) = ' SER. COR. ' 



- CLEAR COUNTS MATRIX FOR PERCENTILE PLOT SMT 

DO 1 1=1,8 SMT 

DO 2 J=1 ,4 SMT 

VXCNTC I , J)=0. SMT 

2 CONTINUE SMT 

1 CONTINUE SMT 

D=MINO( UD ,L-1) SMT 

- DEGREE OF REGRESSION FOR AVERAGES LIMITED TO 4 SMT 

DA=MINC4, D) SMT 

D1=D+1 SMT 

D1A=DA+1 SMT 



1X1=8 SMT 

1X2=7 SMT 

MN=M*N SMT 

IWIDTH= IFIX(DLH( 3) ) SMT 

C BUILD REGRESSION MATRICES FOR AVERAGES AND VARIANCES SMT 

DO 84 K=1,L SMT 

DO 86 J=1 ,D1 SMT 

T=FLOATC NEC L))/FLOAT( NE(K)) SMT 

RACK,J)=T**CJ-1) SMT 

RVCK,J)=T**CFLOAT(J)*. 5) SMT 

86 CONTINUE SMT 

84 CONTINUE SMT 

C SET HORIZONTAL XMIN, XMAX SMT 

XMIN=. 7*NEC 1) SMT 

XMAX=1. 2*NE(L) SMT 
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C --- SCALING FACTORS FOR REGR. , QUANTILE PLOT & NORM. QUANTILE (QVSC) SMT 
VSCALE=( DLH( 4) -DLH( 2) ) / ( YMAX-YMIN) SMT 

HSCALE=( DLH( 3 ) -DLH( 1) ) / ( XMAX-XMIN) SMT 

QVSC =(DLH(4)-DLH(2))/(3. -(-3.)) SMT 



WRITE( 5,*) 'COMPUTING BOXPLOT LOCATIONS' 



C COMPUTE LOCATION OF BOXPLOTS ALONG X-AXIS SMT 

LAST=- 1 SMT 

DO 5 K=1 ,L SMT 

NB(K)=N/NE(K) SMT 

LOCX(K)=(NE(K)-XMIN)*HSCALE + DLH( 1)+. 5 SMT 

IF(LOCX(K). LT. LAST+4) L0CX(K)=LAST+4 SMT 

LAST=LOCX(K) SMT 

5 CONTINUE SMT 

IF( LOCX( L) . GT. 120) L0CX(L)=120 SMT 

C COMPUTE LOCATION OF COLOR BOXPLOTS 



C WE WILL DO THIS ONCE ONLY. CAN DO ALL ESTIMATOR LOCATIONS FOR COLOR 
C USING THE FIRST ESTIMATOR POSITIONS AND OFFSETS. 

IF( IEST. NE. 1) GOTO 7 

C ICSPCE IS SPACING FOR COLOR BOXPLOTS ( 1 => 1 SPACE BETWEEN, 

C 0 => ADJACENT) 

C FIRST COMPUTE POSITIONS OF SECOND ESTIMATOR (CENTER) 

DO 6 K=1,NCPRT 
C 

C USE SAME HORIZONTAL SCALE AS DETERMINED ABOVE FOR BW BOXPLOTS 

C WE ARE COMPUTING THE LOCATIONS OF THE SECOND PLOT OF EACH 

C GROUP, AND WE WILL THEN OFFSET THE OTHERS BASED ON THE SPACING 

C COMPUTE TENTATIVE POSITION BASED ON SCALE, THEN CHECK BOUNDS 

KK=(NE(NCOLRNDX(K))-XMIN)*HSCALE+DLH(l)+. 5 

C MINIMUM BOXPLOT POSITION IS 6+ICSPCE, FOR CENTER( SECOND) BOXPLOT 
IF(K. EQ. 1)THEN 

IF(KK. GE. 6+ICSPCE) ICLRLOCX( 2, 1)=KK 
IF(KK. LT. 6+ICSPCE) ICLRLOCX( 2, 1)=6+ICSPCE 
ENDIF 

C CHECK THAT THERE IS AT LEAST ( 3+ICSPCE)*NEST NUMBER OF SPACES 
C BETWEEN EACH GROUP OF PLOTS 

C SO THAT ALL THE ESTIMATORS WILL FIT. THIS IS JCSPCE. 



IFCK.EQ. 2) THEN 

IF(KK-ICLRLOCX( 2,1). LT. JCSPCE) 

I CLRLOCX( 2 , 2 ) =1 CLRLOCX( 2,1) + JC SPCE 
IF(KK-ICLRLOCX( 2 , 1). GE. JCSPCE )ICLRLOCX( 2, 2)=KK 
ENDIF 






IF(K.EQ. 3) THEN 

IF(KK-ICLRLOCX( 2 , 2) . LT. JCSPCE) 

ICLRLOCX( 2 , 3)=ICLRLOCX( 2 , 2)+JCSPCE 
IF(KK-ICLRLOCX(2,2). GE. JCSPCE) ICLRLOCX( 2, 3)=KK 
ENDIF 
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834 


C 


NOW OFFSET THE OTHER ESTIMATOR'S LOCATIONS TO EITHER SIDE OF THESE 




835 










836 






IF(NEST. GE. 2) ICLRLOCXC 1 ,K)=ICLRL0CX(2,K) -3-ICSPCE 




837 






IF(NEST. GE. 3) ICLRLOCX( 3 ,K)=ICLRL0CX(2,K)+3+ICSPCE 




838 






IF(NEST. GE. 4) ICLRL0CX(4 ,K)=ICLRL0CX(2 ,K)+6+ICSPCE+ICSPCE 




839 






IF( NEST. GE. 5 ) ICLRLOCXC 5 , K)=ICLRLOCXC 2 , K)+9+3*ICSPCE 




840 


C 








841 


C 


IF 


THE POSITION OF THE RIGHTMOST MEMBER OF THE GROUP OF BOXPLOTS 




842 


C 


EXCEEDS THE RIGHT MARGIN, MOVE THEM ALL BACK AN AMOUNT OF THE 




843 


C 


THE DISTANCE FROM THE MARGIN, THEN SET THE LAST ONE AT THE MARGIN 




844 


C 








845 






IFC ICLRLOCXC NEST, K). GT. 120) THEN 




846 






DO 8 1=1, NEST-1 




847 


8 




ICLRLOCXC I ,K)=ICLRLOCXC I ,K) -( ICLRLOCXC 5 ,K) -120) 




848 






ICLRLOCXC NEST, K)= 120 




849 






ENDIF 




850 


6 




CONTINUE 




851 


7 




CONTINUE 




852 


C 








853 


C- 


— 


LABEL X-AXIS 


SMT 


854 






DO 115 1=1,122 


SMT 


855 






XAXISC I } 1)=DASH 


SMT 


856 






XAXISC I , 2)=BLK 


SMT 


857 






IFCIEST.EQ. 1 ) COLRXI S C 1 , 1 ) =D ASH 




858 






IFCIEST. EQ. 1)C0LRXISCI,2)=BLK 




859 




115 


CONTINUE 


SMT 


860 






DO 130 J=1 , L 


SMT 


861 






IBPTRC J)=0 


SMT 


862 






XAXISC LOCXC J ) , 1 ) =CB AR 


SMT 


863 






IK = NEC J) 


SMT 


864 






IX = LOCXC J) 


SMT 


865 






CALL NUMPRTC IX, 2, IK,XAXIS) 


SMT 


866 




130 


CONTINUE 


SMT 


867 


c 








868 


c 


THE X AXIS POSITION MARKER IS PLACED AT THE POSITION OF THE ' SECOND 




869 


c 


BOXPLOT FOR COLOR COMBINED PLOTS 




870 


c 








871 






IFCIEST. NE. 2)G0T0 132 




872 






DO 131 J=1 ,NCPRT 




873 






COLRXI SC ICLRLOCXC IEST, J) , 1 )=CBAR 




874 






IK=NEC NCOLRNDXC J) ) 




875 






IX=ICLRLOCXC IEST, J) 




876 






CALL NUMPRTC IX, 2, IK, COLRXI S) 




877 


131 


CONTINUE 




878 


C 




FIND NO. OF STATISTICS TO BE CALCULATED AT EACH SAMPLE SIZE 


SMT 


879 


132 


L1=0 


SMT 


880 






L2=0 


SMT 


881 






L3=0 


SMT 


882 






DO 21 1=1, L 


SMT 


883 






K1 = M*CN/NECI)) 


SMT 


884 






IF CK1.GE. 2) L1=I 


SMT 


885 






IF CK1. GE. 3) L2=I 


SMT 


886 






IF CK1.GE.4) L3=I 


SMT 


887 




21 


CONTINUE 


SMT 


888 






DT=MINCD1, LI) 


SMT 


889 


C 


— 


CLEAR GRANDTOTALS FOR SUMMARY PAGE EXCEPT WHEN RESTARTING 


SMT 
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890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 



IFCINSR .EQ. 1) CALL CLRGT( GBA , GBV , GBS , GW , GSTAT , GPVAL) 

C 

C --- OUTER LOOP ADDED 07-16-84 TO DO MULTIPLE RUNS PER NSR PARAMETER 
C 

DO 2000 ISREP=INSR ,NSR 

WRITE(5,*) 'ESTIMATOR ' ,IEST,' SUPER-REP #',ISREP,' (OF ',NSR,' 
C CLEAR PLOT ARRAY, BW ONLY 

CALL CLRPA(PLOT) 

C 

C INITIALIZE COUNTER FOR COLOR PLOT INDEX 
C 



SMT 
SMT 
SMT 
SMT 
SMT 
) ' SMT 
SMT 
SMT 



KCOUNT=l 

DO 80 K=1,L SMT 

WRITE(5,557)NE(K) 

557 FORMATC/’ SUB SAMPLE SIZE: ',15) 

NBK=NB(K) SMT 

C SECTION & COMPUTE ESTIMATORS FOR SIZE K SMT 

CALL SECEST(GENEST, ISEED,N,M,NE(K) ,Y,KP) SMT 

C AVERAGE ESTIMATES OF SIZE NE(K) FOR EACH OF M REPLICATIONS SMT 



KP=0 SMT 

DO 10 1=1, M SMT 

RH(K, I)=0. SMT 

DO 15 J=1 ,NBK SMT 

KP=KP+1 SMT 

GV( 1)=AMIN1(GV( 1) , Y ( KP ) ) SMT 

GV( 2)=AMAX1(GV( 2) , Y(KP)) SMT 

RH(K, I )=RH(K, I)+Y(KP) SMT 

15 CONTINUE SMT 

RH(K, I)=RH(K, I)/FLOAT(NBK) SMT 

10 CONTINUE SMT 

C COMPUTE MEAN AND MOMENT ESTIMATES SMT 

CALL CMPMOM( Y , KP , VMSE , MSE , K , STAT, SVAR) SMT 

DO 180 IM1=1 ,KP SMT 

C --- APPEND TO BIVARIATE MATRICES SMT 

IF( IBPTR(K) . LT. NBROWS) THEN SMT 

IBPTR(K)=IBPTR(K)+1 SMT 

BIV( IBPTR(K) , K)=Y( IM1) SMT 

END IF SMT 

C --- FREQUENCY COUNTS FOR PERCENTILE PLOTS SMT 

IF( IPR . EQ. 1) THEN SMT 

DO 181 IK=1,4 SMT 

IF( Y( IM1) .LE. VMX(K, IK) ) VXCNT(K, IK)=VXCNT(K, IK) +1 SMT 

181 CONTINUE SMT 

ENDIF SMT 

180 CONTINUE SMT 

CALL BOXPRT( Y , KP , LOCX( K) , PLOT , RG , XMIN , YMIN , XMAX , YMAX , V SCALE ) SMT 



C FOR COLOR BOXPLOTS , IF K, THE INDEX THROUGH ALL THE SAMPLE SIZES, 

C IS EQUAL TO THE INDEX OF SAMPLE SIZES SPECIFIED FOR COLOR PLOTS, 

C THEN PREPARE A BOXPLOT FOR THIS SAMPLE SIZE, AT LOCATION DETERMINED 
C ABOVE. MOVE SHEET OF 3D PLOT ARRAY TO TEMP (2D ARRAY), CALL BOXPRT, AND 
C THEN RESTORE SHEET OF 3D ARRAY. 

C 

C IF KCOUNT GT NCPRT THEN WE HAVE DONE ALL THE SAMPLE SIZES FOR THIS 
C ESTIMATOR 
C 



IF( KCOUNT. GT. NCPRT) GOTO 184 
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946 IF(K. NE. NCOLRNDX(KCOUNT) )GOTO 184 

947 C 

948 C FOUND A SAMPLE SIZE, AND NOW WANT A COLOR BOXPLOT 

949 C FIRST CLEAR TEMPLOT ARRAY, AND THEN PUT BOX PLOT IN IT 

950 CALL CLRPA( TEMPLOT) 

951 C 

952 C FOR SUPERREPS, ONLY DO COLOR COMBINATION FOR FIRST SUPERREP 

953 IF( ISREP. GT. 1)G0T0 182 

954 CALL BOXPRT( Y,KP, ICLRLOCX( IEST,KCOUNT) , TEMPLOT, RG,XMIN,YMIN,XMAX, 

955 * YMAX, VSCALE) 

956 DO 183 KK=1 , 122 

957 DO 183 IKK=1 ,50 

958 183 IF(COLRPLT(KK, IKK,IEST). EQ. BLK)COLRPLT(KK, IKK, IEST)=TEMPLOT(KK, IKK 

959 C) 

960 182 CONTINUE 

961 C 

962 C 

963 KCOUNT=KCOUNT+l 

964 C 

965 C --- STORE QUANTILES FOR 2ND PAGE PLOT SMT 

966 184 DO 18 IQ=1,NSYM SMT 

967 PVAL(K, IQ)=PCTL( Y,KP,QVAL( IQ) , 1) SMT 

968 18 CONTINUE SMT 

969 80 CONTINUE SMT 

970 C SMT 

971 C IF Dl.LT. 2 THEN NO REGRESSIONS OR PLOTING CAN BE DONE SMT 

972 C SMT 

973 IF(D1. LT. 2) GO TO 113 SMT 

974 DO 92 K=1,M SMT 

975 DO 47 J=1,L SMT 

976 RT( J)=RH( J,K) SMT 

977 47 CONTINUE SMT 

978 CALL RREG(RA,RT,BT,L,D1A, 1X1 , 1X2) SMT 

979 B( 1 ,K)=BT( 1) SMT 

980 DO 23 KT=2 ,D1A SMT 

981 B(KT,K)=BT(KT)*NE(L)**(KT-1) SMT 

982 23 CONTINUE SMT 

983 92 CONTINUE SMT 

984 C SMT 

985 C AVERAGE REGRESSION COEFF. OVER M REPLICATIONS & CALC. VARIANCE SMT 

986 CALL COEFF(B ,M,D1A, BA,BV,BS,V) SMT 

987 C SMT 

988 C ESTABLISH REGRESSION LINE & ASYMPTOTE SMT 

989 C SMT 

990 DO 98 1=3 , IWIDTH SMT 

991 C MAP I FROM DEVICE SPACE TO USER SPACE SMT 

992 UX=( I -DLH( 1) ) /HSCALE + XMIN SMT 

993 C COMPUTE THE Y VALUE FROM X AND THE REGRESSION COEFFICIENTS. SMT 

994 UY=BA( 1) SMT 

995 DO 99 J=1 ,DA SMT 

996 UY=UY+BA(J+1)/UX**J SMT 

997 99 CONTINUE SMT 

998 C SMT 

999 C MAP THE Y VALUE FROM USER SPACE TO DEVICE SPACE SMT 

1000 J=(UY-YMIN)*VSCALE + DLH(2) + .5 SMT 

1001 IF( J .LT. 1 .OR. J .GT. 50) GO TO 98 SMT 
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1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 



IF( PLOT( I , J) .EQ. BLK) PLOT( I , J)=DOT SMT 

C COMMENTED OUT THE LINES TO PUT REGRESSION LINES IN COLOR PLOT 
C IFCISREP. EQ. 1. AND. COLRPLTC I , J, IEST) . EQ. BLK) 

C C COLRPLTC I , J, IEST)=DOT 

98 CONTINUE SMT 

C SMT 

C SCALE ASYMPTOTE, BETAO , AND PLOT ACROSS PLOT. SMT 

J=(BA(1)-YMIN)*VSCALE + DLH(2) + .5 SMT 

IF( J .LT. 1 .OR. J .GT. 50) GO TO 117 SMT 

DO 120 1=3 , IWIDTH SMT 

IF(PLOT( I , J) .EQ. BLK) PLOT( I , J)=DASH SMT 

IFCISREP. EQ. 1. AND. COLRPLT( I , J , IEST) . EQ. BLK) 

C COLRPLT( I , J , IEST)=DASH 

120 CONTINUE SMT 

C SMT 

C REGRESSION ON VARIANCES FROM EACH SEGMENT WITH A VARIANCE. SMT 

C SMT 

117 CONTINUE SMT 

IF(DT.LT. 2) GO TO 113 SMT 

DO 48 J=1 , L SMT 

C --- MODIFIED FOR MEAN SQUARE ERROR 08-22-86 SMT 

VT(J)=SVAR(J)*CNECJ)**0. 5) SMT 

48 CONTINUE SMT 

CALL RREGCRV, VT,V,L1,DT, 1X1 , 1X2) SMT 

DO 77 1=1, DT SMT 

VCI) = VCD*NECL)**(FLOATCI)/2. ) SMT 

77 CONTINUE SMT 

C --- ACCUMULATE FOR SUMMARY STATISTICS OVER SUPER-REPLICATIONS SMT 

113 CONTINUE SMT 

CALL CMPSUMC BA , BV , BS , V , DT , D 1 , L , STAT , PVAL , NSYM , SMT 

* GBA,GBV,GBS ,GVV,GSTAT,GPVAL) SMT 



C 

C UPDATE COLOR STATISTIC MATRIX WITH STATS FROM THIS ESTIMATOR 
C 

IFCISREP. EQ. 1) THEN 
DO 450 1=1,8 
DO 450 J=1 , 7 

450 COLRSTAT( I , J, IEST)=STAT( I , J) 

END IF 
C 

C --- SAVE STATISTICS FOR THIS SUPER REPLICATION SMT 

C - USE FORMATTED FILE FOR EASE IN FURTHER PROCESSING. LABEL THE DATA 
C - IN THE FILE 
C 

IFCIFIL. EQ. 1) THEN 
WRITEC 1 ,458)TTL 
458 FORMATC A120) 

WRITEC 1,45 6) ISREP 

456 FORMATC ' SUPER-REP #: \I10) 

WRITEC 1,452) 

452 FORMATC 'SAMP SIZE MEAN STD SKEWNESS KURTOSIS SER CORR 

*' ) 

DO 453 1=1, L 

453 WRITEC 1 ,451)NEC I) , C STAT( I , ISCOLC J) ) , J=1 ,5) SMT 

WRITEC 1,454) 
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1058 454 FORMAT( /' QUANT. ROWS: 1 EA FOR . 01 .025 .05 .1 .25 .5 .75 .9 .95 

1059 *. 975 . 99’ ) 

1060 DO 457 J=l,ll 

1061 457 WRITE ( 1,455)(PVAL( I , J) , 1=1 ,8) 

1062 455 FORMAT( 8G10. 4) 

1063 451 FORMAT( 110 , (5G10. 4) ) 

1064 ENDIF 

1065 C SMT 

1066 C --- PRINT ONLY FIRST 3 PLOTS WHEN NPRT=0. ONLY 1 PLOT OTHERWISE SMT 

1067 IF(NPRT. NE. 1 .AND. ISREP . GT. 3 ) GO TO 2000 SMT 

1068 IF(NPRT. EQ. 1 .AND. ISREP . GT. 1 ) GO TO 2000 SMT 

1069 C IF BWPRT FLAG IS NOT SET, DONT PRINT THESE STANDARD PRINTOUTS 

1070 IF( IBWPRT. EQ. 0)GOTO 2000 

1071 C 

1072 C SMT 

1073 C PLOT ************* SMT 

1074 C SMT 

1075 WRITE( 6 , 102) SMT 

1076 WRITE( 6 , 161 ) N,M,D SMT 

1077 WRITE( 6,101) SMT 

1078 DO 90 K=50 ,1,-1 SMT 

1079 IF(MOD(K,5). NE. 0) GO TO 85 SMT 

1080 YLABEL=( K-DLH( 2 ) ) /VSCALE + YMIN SMT 

1081 WRITE( 6 ,103) YLABEL, ( PLOT( I , K) , 1=1 , IWIDTH) SMT 

1082 GO TO 90 SMT 

1083 85 CONTINUE SMT 

1084 WRITE(6, 100) (PLOT( I ,K) , 1=1 , IWIDTH) SMT 

1085 90 CONTINUE SMT 

1086 WRITE( 6 , 106) (XAXIS( I , 1 ), 1=1 , IWIDTH) SMT 

1087 WRITE ( 6 ,104) (XAXIS( I , 2) , 1=1 , IWIDTH) SMT 

1088 WRITE( 6 , 156) SMT 

1089 WRITE( 6 , 146) (NE( I) , 1=1 ,L) SMT 

1090 WRITE( 6,157) LABEL(l), ( STAT(K, 1) ,K=1 ,L) SMT 

1091 11 WRITE( 6,157) LABEL( 2) , (STAT(K,2) ,K=1,L1) SMT 

1092 WRITE( 6,157) LABEL( 3) , ( STAT( K, 3) ,K=1 ,L1 ) SMT 

1093 IF(MSE .EQ. 1) WRITE(6,157) LABEL( 6) , ( STAT(K, 6) ,K=1 ,L1 ) SMT 

1094 12 WRITE( 6 , 158) LABEL(4) , ( STAT(K,4) ,K=1 ,L2) SMT 

1095 13 WRITE( 6 , 158) LABEL(5) , (STAT(K,5) ,K=1,L3) SMT 

1096 IF(D1. LT. 2) GO TO 444 SMT 

1097 WRITE (6 , 151 ) ( BA( I ) , 1=1 ,D1A) SMT 

1098 14 IF(M. LT. 2)GO TO 444 SMT 

1099 WRITE( 6,152) (BV(I) , 1=1, D1A) SMT 

1100 WRITE( 6,153) (BS( I) , 1=1 ,D1A) SMT 

1101 444 IF(DT. LE.l) GO TO 999 SMT 

1102 WRITE( 6 , 159 ) (V(I) , 1=1, DT) SMT 

1103 999 WRITE( 6 , 162) SMT 

1104 WRITE(6, 108) TTL SMT 

1105 WRITE( 6,201) YMIN,YMAX SMT 

1106 C --- PREPARE 2ND PAGE PLOT SMT 

1107 C --- CLEAR PLOT ARRAY SMT 

1108 CALL CLRPA(PLOT) SMT 

1109 C --- ENTER QUANTILES SMT 

1110 DO 220 K=1,L SMT 

1111 DO 240 IS=1 ,NSYM SMT 

1112 IQ=( PVAL( K , IS ) -YMIN) ,V VSCALE + 1 SMT 

1113 IF( IQ .GE. 1 .AND. IQ . LE. 50) PLOT(LOCX(K) , IQ)=SYM(IS) SMT 
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1114 240 CONTINUE SMT 

1115 220 CONTINUE SMT 

1116 C --- PRINT 2ND PAGE SMT 

1117 WRITE( 6, 202) SMT 

1118 WRITE( 6 ,161) N,M,D SMT 

1119 WRITE ( 6 ,101) SMT 

1120 DO 191 J=1 ,50 SMT 

1121 K=5 1- J SMT 

1122 IF(MOD(K,5). NE. 0) GO TO 185 SMT 

1123 YLABEL=(K-DLH( 2) ) /VSCALE + YMIN SMT 

1124 WRITE( 6 , 103) YLABEL, ( PLOT( I ,K) , 1=1 , IWIDTH) SMT 

1125 GO TO 191 SMT 

1126 185 CONTINUE SMT 

1127 WRITE( 6 , 100) (PLOT( I ,K) , 1=1 , IWIDTH) SMT 

1128 191 CONTINUE SMT 

1129 WRITE( 6 , 106) (XAXIS(I , 1) , 1=1, IWIDTH) SMT 

1130 WRITE( 6 , 104) (XAXIS( I , 2) , 1=1 , IWIDTH) SMT 

1131 C --- PRINT QUANTILE AMOUNTS SMT 

1132 WRITE( 6 , 156) SMT 

1133 WRITE( 6 , 147 ) (NE(I) ,1=1, L) SMT 

1134 DO 199 1=1 ,NSYM SMT 

1135 WRITE(6, 167) QVAL(I), (PVAL(K , I) ,K=1 ,L) SMT 

1136 199 CONTINUE SMT 

1137 WRITE( 6 , 158) LABEL( 7) , (STAT(K,7),K=1,L1) SMT 

1138 WRITE( 6 , 108) TTL SMT 

1139 C --- WHEN NPRT=1 SUPPRESS NORMALIZED PLOTS SMT 

1140 IFCNPRT .EQ. 1) GO TO 2000 SMT 

1141 C --- SMT 

1142 C --- PREPARE 3ND PAGE PLOT SMT 

1143 C --- CLEAR PLOT ARRAY SMT 

1144 CALL CLRPA( PLOT) SMT 

1145 C --- NORMALIZE QUANTILES SMT 

1146 DO 1220 K=1,L SMT 

1147 DO 1240 IS=1 ,NSYM SMT 

1148 IF(STAT(K,2). GT. 0) PVAL(K , IS)=( PVAL(K, IS) -STAT(K , 1) )/STAT(K, 2) SMT 

1149 IQ=(PVAL(K,IS)+3. )*QVSC + 1 SMT 

1150 IF( IQ . GE. 1 .AND. IQ . LE. 50) PLOT(LOCX(K) , IQ)=SYM(IS) SMT 

1151 1240 CONTINUE SMT 

1152 1220 CONTINUE SMT 

1153 C --- ADD RIGHT SIDE NORMAL POINT MARKS SMT 

1154 DO 1260 IS=1,NSYM SMT 

1155 IQ=(VN0RM(IS)+3. )*QVSC +1 SMT 

1156 IF(IQ .GE. 1 .AND. IQ . LE. 50) PL0T(122, IQ)=SYM(IS) SMT 

1157 1260 CONTINUE SMT 

1158 C --- PRINT 3RD PAGE SMT 

1159 WRITE( 6 , 203) SMT 

1160 WRITE ( 6 ,161) N,M,D SMT 

1161 WRITE( 6,101) SMT 

1162 DO 1191 J=1 ,50 SMT 

1163 K=51-J SMT 

1164 IF(M0D(K,5).NE. 0) GO TO 1185 SMT 

1165 YLABEL=(K-DLH( 2) )/QVSC - 3. SMT 

1166 WRITE( 6 , 103) YLABEL, (PLOT( I ,K) , 1=1 , IWIDTH) SMT 

1167 GO TO 1191 ' SMT 

1168 1185 CONTINUE SMT 

1169 WRITE( 6 , 100) (PLOT(I,K) ,1=1, IWIDTH) SMT 
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1170 


1191 


CONTINUE 


SMT 


1171 




WRITE( 6 , 106) (XAXIS( 1,1), 1=1 , IWIDTH) 


SMT 


1172 




WRITE ( 6,104) (XAXISC I , 2) , 1=1 , IWIDTH) 


SMT 


1173 


C --- 


PRINT NORMALIZED QUANTILE AMOUNTS 


SMT 


1174 




WRITE( 6 , 156) 


SMT 


1175 




WRITE(6, 147) (NE( I) , 1=1, L) 


SMT 


1176 




DO 1199 1=1 ,NSYM 


SMT 


1177 




WRITE( 6 , 167) QVAL(I), (PVAL(K, I) ,K=1,L) 


SMT 


1178 


1199 


CONTINUE 


SMT 


1179 




WRITE( 6 , 108) TTL 


SMT 


1180 




SMT 


1181 


2000 


CONTINUE 


SMT 


1182 




IF(NSR . EQ. 1) RETURN 


SMT 


1183 




DO 360 1=1, L 


SMT 


1184 




DO 370 J=1 , 7 


SMT 


1185 




XSTAT( I , J , 1 ) =GSTAT( I , J , 1 ) /NSR 


SMT 


1186 




XSTAT( I , J , 2 )=( GSTAT( I , J , 2 ) -NSR*XSTAT( I , J , 1 )**2 ) / 


SMT 


1187 


* ( (NSR-1)*NSR) 


SMT 


1188 




IF(XSTAT( I , J, 2) .LT. 0) XSTAT( I , J, 2)=0 


SMT 


1189 




XSTAT( I , J , 2 ) =SQRT( XSTAT( I , J, 2) ) 


SMT 


1190 


370 


CONTINUE 


SMT 


1191 


360 


CONTINUE 


SMT 


1192 




DO 375 K=1,L 


SMT 


1193 




DO 378 IS=1 , NSYM 


SMT 


1194 




XPVAL( K , I S , 1 ) =GPVAL( K , I S , 1 ) / NSR 


SMT 


1195 




XPVAL( K , IS , 2)=( GPVAL( K , I S , 2 ) -NSR*XPVAL( K, IS, 1)**2)/ 


SMT 


1196 


* ((NSR-1)*NSR) 


SMT 


1197 




IF(XPVAL(K, IS ,2) .GT. 0.) XPVAL(K , IS , 2)=SQRT(XPVAL(K, IS , 2) ) 


SMT 


1198 




IF(XPVAL(K , IS , 2) .LT. 0.) XPVAL(K, IS , 2)=0. 


SMT 


1199 


378 


CONTINUE 


SMT 


1200 


375 


CONTINUE 


SMT 


1201 


C --- 


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 


SMT 


1202 


C --- 


PREPARE SUPER REPLICATIONS QUANTILE PLOT 


SMT 


1203 


C --- 


CLEAR PLOT ARRAY 


SMT 


1204 




CALL CLRPA( PLOT) 


SMT 


1205 


C --- 


ENTER QUANTILES 


SMT 


1206 




DO 2220 K=1 , L 


SMT 


1207 




DO 2240 IS=1 ,NSYM 


SMT 


1208 




IQ=(XPVAL(K,IS, 1) -YMIN)*VSCALE + 1 


SMT 


1209 




IF( IQ .GE. 1 .AND. IQ . LE. 50) PLOT(LOCX(K) , IQ)=SYM(IS) 


SMT 


1210 


2240 


CONTINUE 


SMT 


1211 


2220 


CONTINUE 


SMT 


1212 


c --- 


PRINT SUMMARY QUANTILE PLOT 


SMT 


1213 




WRITE(6, 173) 


SMT 


1214 




WRITE( 6,161) N,M,D 


SMT 


1215 




WRITE(6, 101) 


SMT 


1216 




DO 2191 J= 1 , 5 0 


SMT 


1217 




K=5 1- J 


SMT 


1218 




IF(M0D(K,5). NE. 0) GO TO 2185 


SMT 


1219 




YLABEL=(K-DLH( 2) )/VSCALE + YMIN 


SMT 


1220 




WRITE( 6,103) YLABEL , ( PLOT( I ,K) , 1=1 , IWIDTH) 


SMT 


1221 




GO TO 2191 


SMT 


1222 


2185 


CONTINUE 


SMT 


1223 




WRITE( 6,100) ( PLOT( I , K) , 1=1 , IWIDTH) 


SMT 


1224 


2191 


CONTINUE 


SMT 


1225 




WRITE( 6 , 106) (XAXIS( 1,1) ,1=1, IWIDTH) 


SMT 
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1226 




WRITE( 6,104) (XAXIS( I , 2) , 1=1 , IWIDTH) 


SMT 


1227 


c --- 


PRINT QUANTILE AMOUNTS 


SMT 


1228 




WRITE(6, 156) 


SMT 


1229 




WRITE( 6 , 147) (NE( I) , 1=1, L) 


SMT 


1230 




DO 2199 1=1 ,NSYM 


SMT 


1231 




WRITE( 6 , 167) QVAL(I), (XPVAL(K, I , 1) ,K=1,L) 


SMT 


1232 


2199 


CONTINUE 


SMT 


1233 




WRITE( 6 ,158) LABEL( 7 ) , (XSTAT(K, 7 , 1) ,K=1 ,L1) 


SMT 


1234 




WRITE( 6 , 108) TTL 


SMT 


1235 


c --- 


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 


SMT 


1236 


c --- 


PRINT SUMMARY STATISTICS PAGE 


SMT 


1237 




WRITE( 6,171) NSR 


SMT 


1238 




WRITE( 6,172) (NE(I) ,1=1, L) 


SMT 


1239 




WRITE( 6 , 262) 


SMT 


1240 




WRITE(6, 157) LABEL(l), (XSTAT(K, 1,1), K=1,L) 


SMT 


1241 




WRITE( 6,157) BLK, (XSTAT(K, 1,2) , K=1,L) 


SMT 


1242 




WRITE( 6 , 262) 


SMT 


1243 




WRITE ( 6,157) LABEL(2) , (XSTAT(K,2, 1) , K=1,L1) 


SMT 


1244 




WRITE( 6 ,157) BLK, (XSTAT(K, 2 , 2) , K=1,L1) 


SMT 


1245 




IF(MSE .NE. 1) GO TO 443 


SMT 


1246 




WRITE( 6 , 262) 


SMT 


1247 




WRITE(6, 157) LABEL( 6) , (XSTAT(K,6, 1) , K=1,L1) 


SMT 


1248 




WRITE( 6 ,157) BLK, (XSTAT(K, 6 , 2) , K=1,L1) 


SMT 


1249 


443 


CONTINUE 


SMT 


1250 




WRITE( 6 , 262) 


SMT 


1251 




WRITE( 6 , 157) LABEL(4) , (XSTAT(K,4, 1) , K=1,L2) 


SMT 


1252 




WRITE ( 6 ,157) BLK, (XSTAT(K,4,2) , K=1,L2) 


SMT 


1253 




WRITE( 6 , 262) 


SMT 


1254 




WRITE( 6 ,157) LABEL(5) , (XSTAT(K,5 , 1) , K=1,L3) 


SMT 


1255 




WRITE(6, 157) BLK, (XSTAT(K,5 , 2) , K=1,L3) 


SMT 


1256 




WRITE( 6 , 262) 


SMT 


1257 




WRITE(6 , 157) LABEL( 7 ) , (XSTAT(K, 7 , 1) , K=1,L1) 


SMT 


1258 




WRITE( 6,157) BLK, (XSTAT(K, 7 , 2) , K=1,L1) 


SMT 


1259 


C --- 


PRINT QUANTILE STATISTICS 


SMT 


1260 




WRITE( 6 , 169) 


SMT 


1261 




DO 445 1=1 ,NSYM 


SMT 


1262 




WRITE (6, 26 2) 


SMT 


1263 




WRITE( 6 ,167) QVAL(I), ( XPVAL( K , I , 1 ) , K=1 , L) 


SMT 


1264 




WRITE( 6 , 168) BLK, (XPVAL(K, I , 2) ,K=1 ,L) 


SMT 


1265 


445 


CONTINUE 


SMT 


1266 


C 




SMT 


1267 




DO 350 1=1,6 


SMT 


1268 




XBA( I , 1)=GBA( I , 1)/NSR 


SMT 


1269 




XBA( 1,2) =SQRT( ( GBA( I , 2 ) -NSR*XBA( I , 1 ) ** 2 ) / 


SMT 


1270 




* ( (NSR-1)*NSR) ) 


SMT 


1271 




XBV( I , 1)=GBV( I , 1)/NSR 


SMT 


1272 




XBV( 1,2) =SQRT( ( GBV( I , 2 ) -NSR*XBV( I , 1 ) **2 ) / 


SMT 


1273 




* ( (NSR-1)*NSR) ) 


SMT 


1274 




XBS( I , 1)=GBS( I , 1)/NSR 


SMT 


1275 




XBS( 1,2) =SQRT( ( GBS ( I , 2 ) -NSR*XBS ( I , 1 ) **2 ) / 


SMT 


1276 




* ((NSR-1)*NSR)) 


SMT 


1277 




XVV( I , 1)=GVV( I , 1)/NSR 


SMT 


1278 




XVV( 1 ,2) =SQRT( ( GVV( 1,2) -NSR*XW( 1 , 1 ) **2 ) / 


SMT 


1279 




* C (NSR-1)*NSR) ) 


SMT 


1280 


350 


CONTINUE 


SMT 


1281 


C 




SMT 



152 



1282 




IF(D1 .LT. 2) GO TO 410 


SMT 


1283 




WRITE( 6 , 262) 


SMT 


1284 




WRITE( 6 , 15 1) (XBA( 1,1), 1=1 ,D1A) 


SMT 


1285 




WRITE ( 6,176) (XBA( I , 2) , 1=1 ,D1A) 


SMT 


1286 




IF(M .LT. 2) GO TO 410 


SMT 


1287 




WRITE( 6 , 262) 


SMT 


1288 




WRITE ( 6 ,153) (XBS( 1,1), 1=1 ,D1) 


SMT 


1289 




WRITE( 6,176) (XBS( 1,2), 1=1 ,D1) 


SMT 


1290 




410 CONTINUE 


SMT 


1291 




IF(DT .LT. 2) GO TO 420 


SMT 


1292 




WRITE( 6 , 262) 


SMT 


1293 




WRITE( 6 , 159) (XVV(I,1) ) I=1,DT) 


SMT 


1294 




WRITE( 6,176) (XVV( 1,2), 1=1 ,DT) 


SMT 


1295 




420 CONTINUE 


SMT 


1296 


C 




SMT 


1297 




WRITE( 6 , 262) 


SMT 


1298 




WRITE( 6 , 108) TTL 


SMT 


1299 


C 


PERCENTILE PLOT 


SMT 


1300 




IF( IPR .EQ. 1) CALL PRPLOT( M , N , NSR , L , NE , D , VMX , VXCNT , PLOT , TTL , 


SMT 


1301 




* XAXIS ,LOCX) 


SMT 


1302 


c 




SMT 


1303 




100 FORMAT( 9X, ' | ' ,122A1, ' | ' ) 


SMT 


1304 




101 FORMATC 9X, '+' , 122( ' -'),'+') 

102 FORMAT('l') 

103 FORMAT ( ’ ' ,G8. 2, ' , 122A1, ' | ' ) 


SMT 


1305 




SMT 


1306 




SMT 


1307 




104 FORMAT( 10X, 122A1) 


SMT 


1308 




106 FORMAT(9X, '+' , 122A1, '+' ) 


SMT 


1309 




107 FORMATC 10G13. 8) 


SMT 


1310 




108 FORMATC/,' ESTIMATOR: ' ,A120) 


SMT 


1311 




151 FORMATC/,' MEAN OF REGRESSION ON AVERAGES' ,6G1 7. 4) 


SMT 


1312 




176 FORMAT( ' ',6G17. 4) 


SMT 


1313 




152 FORMATC VARIANCE OF REGRESSION' ,8X,6G17. 4) 


SMT 


1314 




153 FORMATC' STD DEV OF REGRESSION' ,9X,6G17. 4) 


SMT 


1315 




156 FORMATC/' SUBSAMPLE') 

146 FORMATC ’ SIZE ' ,8( 18, 6X) ,/) 


SMT 


1316 




SMT 


1317 




147 FORMATC ’ SIZE ' ,8( I8,6X) ,/ ' QUANTILE',/) 


SMT 


1318 




167 FORMATC IX, F5. 3,6X,8G14. 4) 


SMT 


1319 




168 FORMATC IX, A8,3X, 8G14. 4) 


SMT 


1320 




169 FORMATC/,' QUANTILES') 


SMT 


1321 




157 FORMATC IX, A8,3X,8G14. 4) 


SMT 


1322 




158 FORMATC IX, A8,8F14. 4) 


SMT 


1323 




159 FORMATC/,' REGRESSION ON VARIANCE ', 7X , 6G17. 4) 


SMT 


1324 




161 FORMATC 9X ,' SAMPLE SIZE (N) : ' , 15 , 20X , ' NO. OF REPLICATIONS CM):’, 
+15, 18X, 'DEGREE OF REGRESSION (D):',I3) 


SMT 


1325 




SMT 


1326 




162 FORMATC/) 

171 FORMATC * 1* ,30X, 'SUMMARY STATISTICS (MEAN/STD)' , 


SMT 


1327 




SMT 


1328 




* 18,' SUPER-REPLICATIONS') 


SMT 


1329 




172 FORMATC/ j' SUBSAMPLE',/,' SIZE ' ,8C 18, 6X) ,/) 

173 FORMATC ' 1' ,30X, 'SUMMARY QUANTILE PLOT FOR ALL SUPER-REPLICATIONS' 
262 FORMATC' ') 


SMT 


1330 




)SMT 


1331 




SMT 


1332 




201 FORMATC IX, 'VERTICAL SCALE: YMIN =' ,F10. 4,/ , 18X, ' YMAX =',F10.4/) 

202 FORMATC ' 1' ,40X, 'QUANTILE PLOT') 

203 FORMATC ' 1' ,40X, 'NORMALIZED QUANTILE PLOT') 


SMT 


1333 




SMT 


1334 




SMT 


1335 




END 





153 



1336 






SUBROUTINE SETCOLR(I) 




1337 

1338 


1 




WRITE ( 6 .1)1 
FORMAT ( ' +?r ' ,11) 




1339 






RETURN 




1340 






END 




1341 






SUBROUTINE CLRCOLR( COLRPLT) 


SMT 


1342 






CHARACTER COLRPLT( 122, 50,5)* 1 


SMT 


1343 






DO 1 1=1,122 




1344 






DO 1 J=1 ,50 




1345 






DO 1 K=1 ,5 




1346 


1 




COLRPLT(I, J,K) = ' ’ 




1347 






RETURN 




1348 






END 




1349 


C 







SMT 


1350 






SUBROUTINE CMPSUM( BA , BV , BS , V , DT , D 1 , L , STAT , PVAL , NSYM , 


SMT 


1351 




* GB A , GBV , GBS , GW , GSTAT , GPVAL) 


SMT 


1352 


c 




ACCUMULATE SUMMARY STATISTICS: GBA, GBV, GBS, GW, GSTAT, GPVAL 


SMT 


1353 






REAL*4 STAT( 8,7) ,PVAL( 8,11) 


SMT 


1354 






REAL* 4 V( 7) ,BA( 7),BV(7),BS(7) 


SMT 


1355 






REAL*8 GSTAT(8,7,2) , GPVAL(8, 11,2) 


SMT 


1356 






REAL* 8 GBA( 7,2), GBV(7,2), GBS(7,2), GVV(7,2) 


SMT 


1357 






INTEGER L,DT,D1 ,NSYM 


SMT 


1358 






IF(D1. LT. 2 .OR. DT. LT. 2) GO TO 113 


SMT 


1359 






DO 300 1=1,6 


SMT 


1360 






GBA( I , 1)=GBA( 1,1) + BA( I ) 


SMT 


1361 






GBA( I , 2)=GBA( 1,2) + BA(I)**2 


SMT 


1362 






GBV( I , 1)=GBV( 1,1) + BV( I ) 


SMT 


1363 






GBV( I , 2)=GBV( 1,2) + BV(I)**2 


SMT 


1364 






GBS( I , 1)=GBS( 1,1) + BS( I ) 


SMT 


1365 






GBS( I , 2)=GBS( 1,2) + BS(I)**2 


SMT 


1366 






IF( I .LE. DT) THEN 


SMT 


1367 






GVV( I , 1)=GVV( 1,1) + V(I) 


SMT 


1368 






GVV( I , 2)=GVV( 1,2) + V( I )**2 


SMT 


1369 






END IF 


SMT 


1370 




300 


CONTINUE 


SMT 


1371 




113 


CONTINUE 


SMT 


1372 






DO 310 1=1, L 


SMT 


1373 






DO 320 J=1 , 7 


SMT 


1374 






GSTAT( I , J, 1)=GSTAT( I , J, 1) + STAT(I,J) 


SMT 


1375 






GSTAT( I , J , 2 )=GSTAT( I , J , 2 ) + STAT(I,J)**2 


SMT 


1376 




320 


CONTINUE 


SMT 


1377 




310 


CONTINUE 


SMT 


1378 


c 


— 


COMPUTE SUMMARY FOR QUANTILES 


SMT 


1379 






DO 1221 K=1,L 


SMT 


1380 






DO 1241 IS=1 ,NSYM 


SMT 


1381 






GPVAL(K, IS , 1)=GPVAL(K, IS , 1) + PVAL(K,IS) 


SMT 


1382 






GPVAL(K, IS, 2)=GPVAL(K, IS , 2) + PVAL(K, IS)**2 


SMT 


1383 




1241 


CONTINUE 


SMT 


1384 




1221 


CONTINUE 


SMT 


1385 






END 


SMT 


1386 


c 


— 




SMT 


1387 






SUBROUTINE COEFF(B ,M,D1A, BA,BV,BS,V) 


SMT 


1388 


c 


— 


COMPUTE REGRESSION COEFFICIENTS, VARS, ETC: BA,BV,BS,V 


SMT 



154 



1389 






REAL*4 V(7),BA(7),BV(7),BS(7), B(7,100) 


SMT 


1390 






INTEGER D1A 


SMT 


1391 






AM=M 


SMT 


1392 






DO 93 1=1,7 


SMT 


1393 






BA( I)=0 


SMT 


1394 






BV( I)=0 


SMT 


1395 






BS(I)=0 


SMT 


1396 






v(i)=o 


SMT 


1397 




93 


CONTINUE 


SMT 


1398 






DO 94 1=1, D1A 


SMT 


1399 






DO 95 J=1,M 


SMT 


1400 






BA( I)=BA( I)+B( I , J) 


SMT 


1401 






BV( I)=BV( I)+B( I , J)**2 


SMT 


1402 




95 


CONTINUE 


SMT 


1403 






BA( I)=BA( I) /AM 


SMT 


1404 






IF(M. EQ. 1)G0 TO 94 


SMT 


1405 






BV(I)=(BV(I)-AM*BA(I)**2)/(AM*(AM-1. )) 


SMT 


1406 






IF(BV( I) . LT. 0. ) BV( I)=0 


SMT 


1407 






BS( I)=BV( I)**. 5 


SMT 


1408 




94 


CONTINUE 


SMT 


1409 






END 


SMT 


1410 


C 


- - - 




SMT 


1411 






SUBROUTINE CMPMOM(Y,KP,VMSE,MSE,K, STAT,SVAR) 


SMT 


1412 


C 


— 


COMPUTE MOMENT ESTIMATES IN STAT(K,*) AND SVAR(K) 


SMT 


1413 






REAL Y( 1) , VMSE( 8) , STAT(8,7), SVAR(8) 


SMT 


1414 






REAL* 8 XME AN , DEV , SUM2 , SUM3 , SUM4 


SMT 


1415 






XMEAN=0. 


SMT 


1416 






DO 180 IM1=1 ,KP 


SMT 


1417 






XMEAN=XMEAN+Y( IM1) 


SMT 


1418 




180 


CONTINUE 


SMT 


1419 






XME AN=XME AN / F LO AT ( K P ) 


SMT 


1420 






SUM2 = 0. ODO 


SMT 


1421 






SUM3 = 0. ODO 


SMT 


1422 






SUM4 = 0. ODO 


SMT 


1423 






DO 190 IP1=1 ,KP 


SMT 


1424 






DEV = Y(IP1) - XME AN 


SMT 


1425 






SUM2 = SUM2 + DEV * DEV 


SMT 


1426 






SUM3 = SUM3 + DEV ** 3 


SMT 


1427 






SUM4 = SUM4 + DEV ** 4 


SMT 


1428 




190 


CONTINUE 


SMT 


1429 


C 






SMT 


1430 


C 




CHECK TO INSURE SAMPLE SIZE IS LARGE ENOUGH FOR EACH MOMENT 


SMT 


1431 


C 




CLEAR STAT 


SMT 


1432 






DO 419 IP1=1 , 7 


SMT 


1433 






STAT(K, IP1)=0. 


SMT 


1434 




419 


CONTINUE 


SMT 


1435 






IF (KP. LT. 2) GO TO 9 


SMT 


1436 






VAR = SUM2 / (KP - 1.0) 


SMT 


1437 






STDV = SQRT(VAR) 


SMT 


1438 


C 


— 


SERIAL CORRELATION 


SMT 


1439 






SERC0R=0. 


SMT 


1440 






DO 421 IP1=2 ,KP 


SMT 


1441 






SERCOR=SERCOR + ( Y( IP1- 1 ) -XMEAN)*( Y( IP1) -XMEAN) 


SMT 


1442 




421 


CONTINUE 


SMT 


1443 






SERC0R=SERC0R/((KP-1)*VAR) 


SMT 



155 



1444 


7 


IF (KP. LT. 3) GO TO 9 


SMT 


1445 




SUM3 = SUM3 * KP /( (KP-1. ) * (KP-2. )) 


SMT 


1446 




SKEW = SUM3 / STDV ** 3 


SMT 


1447 


8 


IF (KP. LT. 4) GO TO 9 


SMT 


1448 




SUM4 = SUM4*((KP-2. )*KP+3. )/((KP-l. )*(KP-2. )*(KP-3. )) 


SMT 


1449 




SUM4 = SUM4 - VAR*VAR*3.*(KP-1. )*(KP+KP-3. )/(KP*(KP-2. )*(KP-3)) 


SMT 


1450 




CKURT = SUM4 / (VAR * VAR) - 3. 


SMT 


1451 


9 


STAT( K j 1 ) =XME AN 


SMT 


1452 




STAT( K , 2 ) =STDV 


SMT 


1453 




STAT( K , 3 )=STDV/SQRT( FLOAT ( KP) ) 


SMT 


1454 




STAT(Kj4)=SKEW 


SMT 


1455 




STAT(Kj5)=CKURT 


SMT 


1456 


c --- 


MEAN SQUARE ERROR 05-25-86 


SMT 


1457 




IF(MSE .EQ. 1) THEN 


SMT 


1458 




STAT(K,6)=SQRT( VAR + (XMEAN-VMSE(K) )**2) 


SMT 


1459 




ELSE 


SMT 


1460 




STAT(K,6)=0. 


SMT 


1461 




ENDIF 


SMT 


1462 




SVAR(K)=VAR 


SMT 


1463 




STAT(K,7)=SERCOR 


SMT 


1464 




END 


SMT 


1465 


C--- 




SMT 


1466 




SUBROUTINE PRPLOT( M , N , NSR , L , NE , D , VMX , VXCNT , PLOT ,TTL,XAXIS, LOCX ) 


SMT 


1467 


C --- 


PRINT PERCENTILE PLOTS 09-09-86 


SMT 


1468 




REAL*4 VMX( 8,4), VXCNT( 8,4), VXSTD(8,4) 


SMT 


1469 




REAL* 4 ULH(4),DLH(4) 


SMT 


1470 




INTEGER NE ( 8 ) , L0CX(8) 


SMT 


1471 




CHARACTER* 120 TTL 


SMT 


1472 




CHARACTER* 1 SYM(4), PLOT( 122 ,50) . XAXIS( 122,2) 
DATA DLH/1. ,1. ,122. ,50. /, SYM/'* f , 


SMT 


1473 




SMT 


1474 


C 


CLEAR PLOT ARRAY 


SMT 


1475 




CALL CLRPA( PLOT) 


SMT 


1476 


c 


SET HORIZONTAL XMIN, XMAX 


SMT 


1477 




ULH( 1)=. 7*NE( 1) 


SMT 


1478 




ULH( 3) = 1. 2*NE( L) 


SMT 


1479 




ULH( 2)=0. 


SMT 


1480 




ULH( 4)=1. 


SMT 


1481 




XMIN=ULH( 1) 


SMT 


1482 




XMAX=ULH( 3) 


SMT 


1483 




YMIN=ULH( 2) 


SMT 


1484 




YMAX=ULH( 4) 


SMT 


1485 




IWIDTH=DLH( 3) 


SMT 


1486 


c --- 


SCALING FACTORS 


SMT 


1487 




VSCALE=( DLH( 4 ) -DLH( 2 ) ) / ( ULH( 4 ) -ULH( 2 ) ) 


SMT 


1488 


c 




SMT 


1489 


c --- 


CONVERT FREQUENCY COUNTS TO PROBS. FOR PLOT & VARS FOR PRINTING 


SMT 


1490 




DO 10 1=1,8 


SMT 


1491 




NBK=N/NE( I ) 


SMT 


1492 




AN=NSR*M*NBK 


SMT 


1493 




DO 20 J=1 ,4 


SMT 


1494 




P=VXCNT( I , J) /AN 


SMT 


1495 




VXCNT( I , J)=P 


SMT 


1496 




IQ=( P - ULH( 2) )*VSCALE + 1 


SMT 


1497 




IQ=MIN( IQ, 50) 


SMT 


1498 




IK=LOCX( I)+J-2 


SMT 



156 



1499 DO 21 K=1 , IQ SMT 

1500 PLOT( IK, K)=SYM( J) SMT 

1501 21 CONTINUE SMT 

1502 VXSTD(I,J)=SQRT(P*(1-P)/AN) SMT 

1503 20 CONTINUE SMT 

1504 10 CONTINUE SMT 

1505 C --- PRINT PERCENTILE PLOT SMT 

1506 WRITE( 6,173) NSR SMT 

1507 WRITE( 6,161) N,M,D SMT 

1508 WRITE( 6,101) SMT 

1509 DO 2191 J=1 ,50 SMT 

1510 K=51-J SMT 

1511 IF(MOD(K,5). NE. 0) GO TO 2185 SMT 

1512 YLABEL=(K-DLH( 2) )/VSCALE + ULH(2) SMT 

1513 WRITE( 6 , 103) YLABEL, ( PLOT( I ,K) , 1=1 , IWIDTH) SMT 

1514 GO TO 2191 SMT 

1515 2185 CONTINUE SMT 

1516 WRITE( 6 , 100) (PLOT( I ,K) , 1=1 , IWIDTH) SMT 

1517 2191 CONTINUE SMT 

1518 WRITE( 6 , 106) (XAXIS( I , 1) , 1=1 , IWIDTH) SMT 

1519 WRITE( 6 , 104) (XAXIS( I , 2) , 1=1 , IWIDTH) SMT 

1520 WRITE( 6 , 156) SMT 

1521 WRITE( 6 , 146) (NE( I) , 1=1 ,L) SMT 

1522 C --- PRINT VARIANCES SMT 

1523 DO 50 J=1 ,4 SMT 

1524 WRITE( 6 , 150) J, (VMX(I,J), 1=1, L) SMT 

1525 WRITE( 6,151) (VXCNT(I,J), 1=1, L) SMT 

1526 WRITE( 6 , 152) (VXSTD(I,J), 1=1, L) SMT 

1527 50 CONTINUE SMT 

1528 WRITE( 6 , 108) TTL SMT 

1529 100 FORMATC 9X, ' | ', 122A1, ' | ' ) SMT 

1530 101 FORMAT(9X, ’+' ,122( ' -’),'+' ) SMT 

1531 102 FORMATC 'l') SMT 

1532 103 FORMATC' ' ,G8. 2 , ' - ' , 122A1 , ’ |' ) SMT 

1533 104 FORMAT( 10X, 122A1) SMT 

1534 106 FORMAT(9X, ' + ' ,122A1, '+' ) SMT 

1535 108 FORMATC/,' ESTIMATOR: ’ ,A120) SMT 

1536 146 FORMAT( ' SIZE ’,8(I8,6X) ) SMT 

1537 150 FORMATC/,' X-VALUE- ’ , 12 , 8G15. 4) SMT 

1538 151 FORMATC ' PERCENTILE', 8G15. 4) SMT 

1539 152 FORMATC ' ESTIM. STD', 8G15.4) SMT 

1540 156 FORMATC/' SUBSAMPLE') SMT 

1541 161 FORMATC 9X, 'SAMPLE SIZE (N): ' , 15 ,20X, 'NO. OF REPLICATIONS CM):', SMT 

1542 +15, 18X, 'DEGREE OF REGRESSION (D):',I3) SMT 

1543 173 FORMATC ' 1' ,30X, 'PERCENTILE PLOTS FOR FOUR X-VALUES ' , 18 , SMT 

1544 * ' SUPER-REPLICATIONS',/) SMT 

1545 END SMT 

1546 C SMT 

1547 SUBROUTINE CLRGT( GBA , GBV , GBS , GW , GSTAT, GPVAL) SMT 

1548 C --- CLEAR GRANDTOTALS SMT 

1549 REAL* 8 GPVAL( 8 , 11 , 2) SMT 

1550 REAL*8 GBAC7,2), GBV(7,2), GBSC7,2), GVVC7,2), GSTAT(8,7,2) SMT 

1551 DO 41 1=1,7 SMT 

1552 DO 42 J=1 , 2 SMT 

1553 GBAC I , J)=0 SMT 



157 



1554 






GBV( I , J)=0 


SMT 


1555 






GBS( I , J)=0 


SMT 


1556 






GVV( I , J)=0 


SMT 


1557 




42 


CONTINUE 


SMT 


1558 




41 


CONTINUE 


SMT 


1559 






DO 43 1=1,8 


SMT 


1560 






DO 44 J=1 , 7 


SMT 


1561 






GSTAT( I , J, 1)=0 


SMT 


1562 






GSTAT( I , J, 2)=0 


SMT 


1563 




44 


CONTINUE 


SMT 


1564 






DO 46 J=l,ll 


SMT 


1565 






GPVAL( I , J, 1)=0 


SMT 


1566 






GPVAL( I , J, 2)=0 


SMT 


1567 




46 


CONTINUE 


SMT 


1568 




43 


CONTINUE 


SMT 


1569 






END 


SMT 


1570 


C 






SMT 


1571 






SUBROUTINE CLRPA(PLOT) 


SMT 


1572 






CHARACTERS PLOT( 122,50) ,BLK 
DATA BLK/ ' ’/ 


SMT 


1573 






SMT - 


1574 






DO 3 J=1 , 50 


SMT 


1575 






DO 4 1=1,122 


SMT 


1576 






PLOT( I , J)=BLK 


SMT 


1577 




4 


CONTINUE 


SMT 


1578 




3 


CONTINUE 


SMT 


1579 






END 


SMT 


1580 




1581 


c 






SMT 


1582 






SUBROUTINE BOXPRT( Y , NY , IX , PLOT , RG , XMIN , YMIN , XMAX , YMAX , VSCALE ) 


SMT 


1583 


c 




PREPARES BOXPLOT FROM VECTOR Y (IN 2-D ARRAY PLOT) 


SMT 


1584 






CHARACTER* 1 PLOT( 122,50), DASH , CBAR , CROSS , CSTR , CO 


SMT 


1585 






REAL Y(NY) 


SMT 


1586 






INTEGER RG 


SMT 


1587 






LOGICAL LFLAG 


SMT 


1588 






DATA DASH/' -’/, CBAR/’ | */ ,CSTR/ '*'/, CROSS/ '+'/ ,CO/ ' 0 ' / 


SMT 


1589 






IF(NY .GE. 9) GO TO 5 


SMT 


1590 


c 




WHEN LESS THAN 9 POINTS JUST SHOW THE POINTS 


SMT 


1591 






DO 8 1=1, NY 


SMT 


1592 






J=( Y( I ) -YMIN)*VSCALE + 1. 


SMT 


1593 


c 




IGNORE VALUE IF IT FALLS OUTSIDE WINDOW 


SMT 


1594 






IF(J. GT.50 .OR. J. LT. 1) GO TO 8 


SMT 


1595 






PLOT( IX, J)=CO 


SMT 


1596 




8 


CONTINUE 


SMT 


1597 






SUM=0. 


SMT 


1598 






DO 88 1=1, NY 


SMT 


1599 






SUM=SUM+Y( I ) 


SMT 


1600 




88 


CONTINUE 


SMT 


1601 






SUM=SUM/FLOAT( NY) 


SMT 


1602 






MEAN=( SUM- YMIN) *VSCALE+1 


SMT 


1603 






IF(MEAN. LE. 50 . AND. MEAN. GE. 1) PLOT( IX,MEAN)=CSTR 


SMT 


1604 






GO TO 99 


SMT 


1605 




5 


CONTINUE 


SMT 


1606 






LFLAG=. FALSE. 


SMT 


1607 






P25 =PCTL(Y,NY,. 25,0) 


SMT 
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1608 






P75 =PCTL(Y,NY, . 75,1) 


SMT 


1609 






P50 =PCTL(Y,NY,. 50,1) 


SMT 


1610 






IQ1=( P25 -YMIN)*VSCALE+1. 


SMT 


1611 






IQ2=(P50-YMIN)*VSCALE+1. 


SMT 


1612 






IQ3=(P75-YMIN)*VSCALE+1. 


SMT 


1613 






XL0W=2*P25-P75 


SMT 


1614 






IL0W=(XL0W-YMIN)*VSCALE+1. 


SMT 


1615 






XHI=2*P75-P25 


SMT 


1616 






IHI=(XHI-YMIN)*VSCALE+1. 


SMT 


1617 






CLOW=2. 5*P25-1. 5*P75 


SMT 


1618 






CHI=2. 5*P75-1. 5*P25 


SMT 


1619 


C 




DRAW BOX 


SMT 


1620 






DO 20 J=IQ1 , IQ3 


SMT 


1621 






IF(J. GT. 50 .OR. J. LT. 1) GO TO 20 


SMT 


1622 






PLOT( IX-1 , J)=CBAR 


SMT 


1623 






PLOT( IX+1 , J)=CBAR 


SMT 


1624 




20 


CONTINUE 


SMT 


1625 






IFCIQI.GT. 50 .OR. IQ1. LT. 1) GO TO 21 


SMT 


1626 






PLOT( IX-1 , IQ1)=DASH 


SMT 


1627 






PLOT( IX+1 , IQ1)=DASH 


SMT 


1628 




21 


CONTINUE 


SMT 


1629 






IF( IQ3. GT. 50 .OR. IQ3. LT. 1) GO TO 22 


SMT 


1630 






PLOT( IX- 1 , IQ3)=DASH 


SMT 


1631 






PLOT( IX+1 , IQ3)=DASH 


SMT 


1632 




22 


CONTINUE 


SMT 


1633 


C 




DETERMINE IF OUTLIERS ARE TO BE COUNTED AND THE NUMBER PRINTED. 


SMT 


1634 






IF (RG. EQ. 1) GO TO 55 


SMT 


1635 






DO 30 1=1, NY 


SMT 


1636 






J=( Y( I ) -YMIN)*VSCALE+1. 


SMT 


1637 


C 




IGNORE VALUE IF IT FALLS OUTSIDE WINDOW 


SMT 


1638 






IF(J. GT. 50 .OR. J. LT. 1) GO TO 30 


SMT 


1639 






IF( Y( I ) . LT. CLOW) PLOT( IX, J)=CSTR 


SMT 


1640 






IF(Y(I). LT. CLOW) GO TO 30 


SMT 


1641 






IF(Y(I). GE. CLOW . AND. Y(I). LT. XLOW) PLOT( IX, J)=CO 


SMT 


1642 






IF(LFLAG .OR. Y( I ) . LT. XLOW) GO TO 25 


SMT 


1643 


C 




THIS IS THE LOW-CROSS POINTER (1ST POINT GE XLOW) 


SMT 


1644 






LFLAG=. TRUE. 


SMT 


1645 






ILX=J 


SMT 


1646 


C 




NEXT LINE ENDS UP WITH HI -CROSS POINTER (LAST POINT LE XHI) 


SMT 


1647 




25 


IF(Y(I). LE.XHI) IHX=J 


SMT 


1648 






IF(Y(I). GT.XHI . AND. Y(I). LE. CHI) PLOT( IX, J)=CO 


SMT 


1649 






IF(Y(I). GT. CHI) PLOT( IX , J)=CSTR 


SMT 


1650 




30 


CONTINUE 


SMT 


1651 






GO TO 56 


SMT 


1652 


C 






SMT 


1653 


C 




SCALE TO INTERQUARTILE +(-) INTERQUARTILE DISTANCE. 


SMT 


1654 


C 






SMT 


1655 




55 


11=0 


SMT 


1656 






111=0 


SMT 


1657 






DO 31 1=1, NY 


SMT 


1658 






J=( Y( I ) -YMIN)*VSCALE+1. 


SMT 


1659 






IF(Y(I). LT. CLOW) II = II+l 


SMT 


1660 






IF(Y(I). GT. CHI) 111=111+1 


SMT 


1661 






IF(J. GT. 50 .OR. J. LT. 1) GO TO 31 


SMT 


1662 






IF(Y(I). GE. CLOW . AND. Y(I). LT. XLOW) PLOT( IX, J)=CO 


SMT 


1663 






IF( LFLAG .OR. Y( I). LT. XLOW) GO TO 26 


SMT 
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1664 


C 


THIS IS THE LOW-CROSS POINTER (1ST POINT GE XLOW) 


SMT 


1665 




LFLAG=. TRUE. 


SMT 


1666 




ILX=J 


SMT 


1667 


C 


NEXT LINE ENDS UP WITH HI -CROSS POINTER (LAST POINT LE XHI) 


SMT 


1668 




26 IF(Y(I). LE.XHI) IHX=J 


SMT 


1669 




IF(Y( I). GT. XHI . AND. Y(I).LE.CHI) PLOT( IX, J)=CO 


SMT 


1670 




31 CONTINUE 


SMT 


1671 


C 




SMT 


1672 


C 


PRINT NUMBER OF OUTLIERS UNLESS 0. 


SMT 


1673 




DO 36 K=1 , 2 


SMT 


1674 




IK=II 


SMT 


1675 




J=(CLOW-YMIN)*VSCALE + 1 


SMT 


1676 




IF(K. EQ. 2)IK=III 


SMT 


1677 




IF(K. EQ. 2) J=(CHI-YMIN)*VSCALE + 1 


SMT 


1678 




IF(J. LT. 1) J=1 


SMT 


1679 




IF( J. GT. 50) J=50 


SMT 


1680 




IF (IK. EQ. 0) GO TO 36 


SMT 


1681 




CALL NUMPRT( IX, J, IK, PLOT) 


SMT 


1682 




36 CONTINUE 


SMT 


1683 


C 




SMT 


1684 


C 


FILL BARS ABOVE AND BELOW THE BOX 


SMT 


1685 




56 DO 32 J=ILX, IQ1 


SMT 


1686 




IF(J. GT. 50 .OR. J. LT. 1) GO TO 32 


SMT 


1687 




PLOT( IX, J)=CBAR 


SMT 


1688 




32 CONTINUE 


SMT 


1689 




DO 33 J=IQ3 , IHX 


SMT 


1690 




IF(J. GT. 50 .OR. J. LT. 1) GO TO 33 


SMT 


1691 




PLOT( IX, J)=CBAR 


SMT 


1692 




33 CONTINUE 


SMT 


1693 




IF( ILX. LE. 50 .AND. ILX. GE. 1) PLOT( IX, ILX)=CROSS 


SMT 


1694 




IF( IHX. LE. 50 .AND. IHX. GE. 1) PLOT( IX, IHX)=CROSS 


SMT 


1695 




IF( IQ1. LE. 50 .AND. IQ1. GE. 1) PLOT( IX, IQ1)=DASH 


SMT 


1696 




IF( IQ2. LE. 50 .AND. IQ2. GE. 1) PLOT( IX, IQ2)=CROSS 


SMT 


1697 




IF( IQ3. LE. 50 .AND. IQ3. GE. 1 ) PLOT( IX, IQ3)=DASH 


SMT 


1698 




SUM=0. 


SMT 


1699 




DO 40 1=1, NY 


SMT 


1700 




SUM=SUM+Y( I ) 


SMT 


1701 




40 CONTINUE 


SMT 


1702 




SUM=SUM/FLOAT(NY) 


SMT 


1703 




MEAN=( SUM-YMIN)*VSCALE+1 


SMT 


1704 




IF(MEAN. LE. 50 .AND. MEAN. GE. 1) PLOT( IX,MEAN)=CSTR 


SMT 


1705 




99 CONTINUE 


SMT 


1706 




RETURN 


SMT 


1707 




END 


SMT 


1708 




SMT 


1709 




SUBROUTINE RREG(XS,YS,BS,M,N,IX1,IX2) 


SMT 


1710 


c 


ROBUST REGRESSION ON Y=X*B 


SMT 


1711 


c 


X=M BY N MATRIX CONTAINED IN AN ARRAY OF DIM(IX1,IX2) 


SMT 


1712 


c 


Y=M -VECTOR CONTAINED IN AN ARRAY OF DIM(IXl) 


SMT 


1713 


c 


B=N-VECTOR CONTAINED IN AN ARRAY OF DIM(IX2) 


SMT 


1714 


c 


XX,XXI=WORK ARRAYS OF DIM(IX2,IX2) 


SMT 


1715 


c 


WY=WORK ARRAY OF DIM(IXl) 


SMT 


1716 


c 


WX=WORK MATRIX OF DIM(IX1,IX2) 


SMT 


1717 


c 


XY=WORK ARRAY OF DIM(IX2) 


SMT 


1718 


c 


WK=WORK ARRAY OF DIM(N**2 + 3*N) OR LARGER 


SMT . 



{ 

i 



] 
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1719 


C ** 


r*** +++++ +++++ MODIFICATION USING CHOLESKY +++++ 


SMT 


1720 


c 






SMT 


1721 




REAL*4 YS(8),XS(8,7),BS(7) 




SMT 


1722 




REAL* 8 Y(8),X(8,7),B(7) ,XTX( 7,7) ,XTY( 7) 




SMT 


1723 


q ***** CONVERT REAL* 4 TO REAL*8 *************************** 


SMT 


1724 




DO 10 1=1 ,1X1 




SMT 


1725 




Y( I)=DBLE( YS( I) ) 




SMT 


1726 




DO 5 J=1 , 1X2 




SMT 


1727 




X( I , J)=DBLE(XS( I , J) ) 




SMT 


1728 


5 


CONTINUE 




SMT 


1729 


10 


CONTINUE 




SMT 


1730 


C 






SMT 


1731 




CALL MATSQ (X,XTX,M,N) 




SMT 


1732 




CALL MATMUL (X,Y,XTY,M,N) 




SMT 


1733 




CALL CHOLES (XTX,XTY,B,N) 




SMT 


1734 


C 






SMT 


1735 


c ***** CONVERT REAL*8 TO REAL*4 ***********^ 




SMT 


1736 


C 


DO 20 1=1, 1X1 




SMT 


1737 


C 


YS( I)=SNGL(Y( I) ) 




SMT 


1738 




DO 15 J=1 , 1X2 




SMT 


1739 




BS( J)=SNGL( B( J) ) 




SMT 


1740 


c 


XS( I , J)=SNGL(X( I , J) ) 




SMT 


1741 


15 


CONTINUE 




SMT 


1742 


20 


CONTINUE 




SMT 


1743 


C 






SMT 


1744 




RETURN 




SMT 


1745 




END 




SMT 


1746 




i JL. JL JL. JL JL JL JL JL JL JL JL JL JL JL. JL JL. JL JL. JL JL, JL JL. JL, JL^V "A* nV JLVf JL JL JL**V • 






1747 




SUBROUTINE NUMPRT( IX, J, IK, PLOT) 




SMT 


1748 


C 


NUMPRT PLOTS THE NUMBER IK IN THE 2-D ARRAY PLOT CENTERED ON 


SMT 


1749 


C 


THE PL0T( IX, J) POSITION. 




SMT 


1750 


C 


IX = COLUMN OF MATRIX PLOT WHERE NUMBER 


IS TO BE PRINTED. 


SMT 


1751 


C 


J = ROW OF MATRIX WHERE MUMBER IS TO BE 


PRINTED. 


SMT 


1752 


C 


IK = NUMBER TO BE PRINTED 




SMT 


1753 


C 


PLOT = 2-D ARRAY WHERE NUMBER IS TO BE : 


PLOTED. 


SMT 


1754 


C 






SMT 


1755 




CHARACTER* 1 NUM( 10) ,PLOT( 122, J) 




SMT 


1756 




DATA NUM/ ' 0 ’ , ' 1 ' , '2', '3' ,'4' ,'5' ,'6' ,’7 


' ,'8' ,’9'/ 


SMT 


1757 




IF (IK. LT. 10) GO TO 1 




SMT 


1758 




IF (IK. LT. 100) GO TO 2 




SMT 


1759 




IF (IK. LT. 1000) GO TO 3 




SMT 


1760 




IF (IK. LT. 10000) GO TO 4 




SMT 


1761 




110000 = IK/10000 




SMT 


1762 




PLOT( IX-2 , J) = NUM( I 10000+1) 




SMT 


1763 




11000 = (IK-I10000*10000)/1000 




SMT 


1764 




PLOT( IX- 1 , J) = NUM( 11000+1) 




SMT 


1765 




1100 = (IK-I10000*10000-I1000*1000)/100 




SMT 


1766 




PLOT( IX, J) = NUM( 1100+1) 




SMT 


1767 




110 = (IK-I10000*10000-I1000*1000-I100*100)/10 


SMT 


1768 




PLOT( IX+1 , J) = NUM( I 10+1) 




SMT 


1769 




11 = (IK-I10000*10000-I1000*1000-I100*100-I10*10) 


SMT 


1770 




PLOT( IX+2 , J) = NUM( 11+1) 




SMT 


1771 




GO TO 22 




SMT 


1772 




4 11000 = IK/1000 




SMT 


1773 




PL0T( IX-2 , J) = NUM( 11000+1) 




SMT 
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1774 




1100 = (IK-I1000*1000)/100 


SMT 


1775 




PLOT( IX-1 , J) = NUM( 1100+1) 


SMT 


1776 




110 = (IK-I1000*1000-I100*100)/10 


SMT 


1777 




PLOT( IX, J) = NUM(I10+1) 


SMT 


1778 




11 = (IK-I1000*1000-I100*100-I10*10) 


SMT 


1779 




PLOT( IX+1 , J) = NUM( 11+1) 


SMT 


1780 




GO TO 22 


SMT 


1781 


3 


1100 = IK/ 100 


SMT 


1782 




PLOT( IX-1, J) = NUM( 1100+1) 


SMT 


1783 




110 = ( IK- I 100*100)/ 10 


SMT 


1784 




PLOT( IX, J) = NUM( I 10+1) 


SMT 


1785 




11 = (IK- I 100*100 -I 10*10) 


SMT 


1786 




PLOT( IX+1 , J) = NUM( I 1+1) 


SMT 


1787 




GO TO 22 


SMT 


1788 


2 


110 = IK/ 10 


SMT 


1789 




PLOT( IX-1 , J) = NUM( I 10+1) 


SMT 


1790 




11 = ( IK-I10*10) 


SMT 


1791 




PLOT( IX, J) = NUM( I 1+1) 


SMT 


1792 




GO TO 22 


SMT 


1793 


1 


PLOT( IX, J) = NUM( IK+1) 


SMT 


1794 


22 


RETURN 


SMT 


1795 




END 


SMT 


1796 ******^****^*************************************’****^** ,tf ^ *********** s MT 


1797 C 






SMT 


1798 




SUBROUTINE SECEST( GENEST , IX , N , M , NEK , Y , KP) 


SMT 


1799 




REAL Y(l) 


SMT 


1800 




real*8 IX 


SMT 


1801 C 




COMPUTE ESTIMATES "EST" FOR SECTION LENGTH NEK (LIMITED TO 1000) 


SMT 


1802 




NBK=N/NEK 


SMT 


1803 




KP=0 


SMT 


1804 




DO 10 1=1, M 


SMT 


1805 




DO 15 J=1 ,NBK 


SMT 


1806 




KP=KP+1 


SMT 


1807 




CALL GENEST( IX,NEK,Y(KP) ) 


SMT 


1808 


15 


CONTINUE 


SMT 


1809 


10 


CONTINUE 


SMT 


1810 




RETURN 


SMT 


1811 




END 


SMT 



1812 C^**************^*****^^*****^^*********************^v************sMT 



1813 C SMT 

1814 SUBROUTINE MAXMIN(Y,N, YMAX, YMIN) SMT 

1815 C RETURNS MAX AND MIN VALUES OF VECTOR Y OF LENGTH N SMT 

1816 REAL Y(N) SMT 

1817 YMAX=Y ( 1 ) SMT 

1818 YMIN=Y( 1) SMT 

1819 DO 605 J=1,N SMT 

1820 IF(Y(J).LT. YMIN) YMIN=Y(J) SMT 

1821 IF(Y(J).GT. YMAX) YMAX=Y(J) SMT 

1822 605 CONTINUE SMT 

1823 RETURN SMT 

1824 END SMT 

✓ 

1825 C****************************************^*****^^*^**^***^********SMT 

1826 C SMT 
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1827 




FUNCTION PCTL(Y,N,P, IC) 




SMT 


1828 


C 


COMPUTES P PERCENTILE OF N VALUES IN Y. 




SMT 


1829 


C 


WHEN IC=1 DATA IS ALREADY SORTED 




SMT 


1830 




REAL Y(N) 




SMT 


1831 




R=P*FL0AT(N+1) 




SMT 


1832 




IF( IC . NE. 1) CALL SORT(Y,N) 




SMT 


1833 




I=MAXO( INT(R) , 1) 




SMT 


1834 




I=MINO( I ,N) 




SMT 


1835 




J=MINO( INT(R+1. ) , N) 




SMT 


1836 




R=R-INT(R) 




SMT 


1837 




PCTL=Y( I )+R*(Y( J) -Y( I ) ) 




SMT 


1838 




RETURN 




SMT 


1839 




END 




SMT 


1840 




SMT 


1841 




SUBROUTINE DELETO(Y,KP, YMAX, YMIN) 




SMT 


1842 


c 


SUBROUTINE SCALES THE GRAPH TO UPPER (LOWER) 


QUARTILE + (-) 


SMT 


1843 


c 


1.5 TIMES INTERQUARTILE DISTANCE OR TO FIRST 


POINT WITHIN 


SMT 


1844 


c 


THESE LIMITS IF NO POINTS EXIST OUTSIDE. 




SMT 


1845 




REAL Y(KP) 




SMT 


1846 




P25 =PCTL( Y , KP , . 25,0) 




SMT 


1847 




P75 =PCTL( Y,KP, . 75,1) 




SMT 


1848 




P50 =PCTL(Y,KP,. 50,1) 




SMT 


1849 




YMIN=2. 5*P25-1. 5*P75 




SMT 


1850 




YMAX=2. 5*P75-1. 5*P25 




SMT 


1851 




IF(Y(1). GT. YMIN) YMIN=Y(1) 




SMT 


1852 




IF(Y(KP). LT. YMAX) YMAX=Y(KP) 




SMT 


1853 




RETURN 




SMT 


1854 




END 




SMT 


1855 


Q ** "iWc ■jWr icirkicMcIc ■jV -jV ^Wc * 'jV* Vr Vc “V * ->V -jV-jV *>Wr *}Wr * ■jWtjV’jV * * * * *3V* ■jV-jV'jV Vr* ** * * * ^Wr * * ^V-jV ** * * * * Vc Vc "jV g 


1856 


c 


CHOLESKI 1 S METHODE ************************* 


SMT 


1857 




SUBROUTINE CHOLES ( XTX , XTY , BHAT , N ) 




SMT 


1858 




REAL ,V 8 L( 7 , 7) , SUM , LT( 7,7) ,XTX( 7,7) ,XTY( 7) ,BHAT( 7) ,WY( 7) . 


SMT 


1859 




REAL ,V 4 B( 7) 




SMT 


1860 




INTEGER P 




SMT 


1861 


c 






SMT 


1862 


C ***** I NIT L ****************** 




SMT 


1863 




DO 100 1=1, N 




SMT 


1864 




BHAT( I)=0. 0D0 




SMT 


1865 




DO 50 J=1,N 




SMT 


1866 




L( I , J)=0. ODO 




SMT 


1867 




LT( I , J)=0. ODO 




SMT 


1868 


50 


CONTINUE 




SMT 


1869 


100 


CONTINUE 




SMT 


1870 


c **** ALGORITHM decomposition ********* 




SMT 


1871 




L( 1 , 1)=DSQRT(XTX( 1,1)) 




SMT 


1872 




DO 500 K=2,N 




SMT 


1873 




KK=K - 1 




SMT 


1874 




DO 200 J=1 ,KK 




SMT 


1875 




JJ=J-1 




SMT 


1876 




SUM=0. ODO 




SMT 


1877 




IF (J. EQ. 1) GO TO 150 




SMT 


1878 




DO 140 P=1,JJ 




SMT 


1879 




SUM=SUM+( L(K,P)*L( J , P) ) 




SMT 


1880 


140 


CONTINUE 




SMT 
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1881 


150 


CONTINUE 


SMT 


1882 




L(K,J)=(XTX(K,J)-SUM)/L(J,J) 


SMT 


1883 


200 


CONTINUE 


SMT 


1884 




SUM=0. 0D0 


SMT 


1885 




DO 300 P=1,KK 


SMT 


1886 




SUM=SUM+(L(K,P)**2) 


SMT 


1887 


300 


CONTINUE 


SMT 


1888 




L(K,K)= DSQRT (XTX(K,K) -SUM) 


SMT 


1889 


500 


CONTINUE 


SMT 


1890 


C BUILD L-TRANSPOSE IN LT ******************** 


SMT 


1891 




DO 540 1=1, N 


SMT 


1892 




DO 530 J=l, N 


SMT 


1893 




LT( I , J)=L( J , I) 


SMT 


1894 


530 


CONTINUE 


SMT 


1895 


540 


CONTINUE 


SMT 


1896 


C 




SMT 


1897 


C ***** ALGORITHM PART 1 A. 2 ********** 


SMT 


1898 


Q *** 


L * WY = XTY 


SMT 


1899 




WY( 1)=XTY( 1)/L( 1, 1) 


SMT 


1900 




DO 700 1=2, N 


SMT 


1901 




11=1-1 


SMT 


1902 




SUM=0. 0D0 


SMT 


1903 




DO 600 J=1,II 


SMT 


1904 




SUM=SUM+(WY( J)*L( I , J) ) 


SMT 


1905 


600 


CONTINUE 


SMT 


1906 




WY( I )=(XTY( I ) -SUM)/L( 1,1) 


SMT 


1907 


700 


CONTINUE 


SMT 


1908 


C 




SMT 


1909 


c *** 


LT * BHAT = WY ******************* 


SMT 


1910 




BHAT(N)=WY(N)/LT(N,N) 


SMT 


1911 




DO 800 11=2, N 


SMT 


1912 




I=N-II+1 


SMT 


1913 




SUM=0. 0D0 


SMT 


1914 




DO 750 J=I,N 


SMT 


1915 




SUM=SUM+( BHAT( J)*LT( I , J) ) 


SMT 


1916 


750 


CONTINUE 


SMT 


1917 




BHAT( I )=(WY( I) -SUM)/LT( 1,1) 


SMT 


1918 


800 


CONTINUE 


SMT 


1919 


C TT 


TTTTTTTTTTTTTTTTTTTlTTTTT’ri’i'i'i'ri'r 


SMT 


1920 


C 




SMT 


1921 




DO 950 1=1,4 


SMT 


1922 




B(I)=SNGL(BHAT(I)) 


SMT 


1923 


C 


WRITE ( 6 , 900)BHAT( I ) ,B( I) 


SMT 


1924 


950 


CONTINUE 


SMT 


1925 


900 


FORMAT (IX, 'BHAT ' ,F30. 15 , ' BSNGL ' ,F30. 15) 


SMT 


1926 


C 




SMT 


1927 




RETURN 


SMT 


1928 




END 


SMT 


1929 


C 




SMT 


1930 


C ***** MATRIX MULTIPLICATION XT * X = XRES ******* 


SMT 


1931 


C 




SMT 


1932 




SUBROUTINE MATSQ ( X, XRES, M, N ) 


SMT 


1933 




REAL* 8 X( 8 , 7 ) , XT( 7 , 8 ) ,XRES( 7 , 7 ) , SUM 


SMT 


1934 


C 




SMT 


1935 




BUILD X-TRANSPOSE IN LT ********** 


SMT 
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1936 




DO 20 1=1, M 


SMT 


1937 




DO 10 J=1,N 


SMT 


1938 




XT( J , I)=X( I , J) 


SMT 


1939 


10 


CONTINUE 


SMT 


1940 


20 


CONTINUE 


SMT 


1941 


C 




SMT 


1942 


c *** 


XT * X = XRES **** 


SMT 


1943 


C 




SMT 


1944 




DO 50 1=1, N 


SMT 


1945 




DO 40 J=1,N 


SMT 


1946 




SUM=0. 0D0 


SMT 


1947 




DO 30 K=1,M 


SMT 


1948 




SUM=SUM+( XT( I ,K)*X(K, J) ) 


SMT 


1949 


30 


CONTINUE 


SMT 


1950 




XRES (I,J) = SUM 


SMT 


1951 


40 


CONTINUE 


SMT 


1952 


50 


CONTINUE 


SMT 


1953 




RETURN 


SMT 


1954 




END 


SMT 


1955 


C 




SMT 


1956 


c **** MATRIX MULTIPLICATION XT * Y = XTY ******** 


SMT 


1957 


c 




SMT 


1958 




SUBROUTINE MATMUL ( X,Y,XTY,M,N ) 


SMT 


1959 




REAL* 8 Y(8),XT(7,8),X(8,7) ,XTY( 7 ) , SUM 


SMT 


1960 


C TTTTT TEST ’k’jcJc’frMrjcjt’kje'k'frJcMcltJcJc'icMc'fc'kicJtJcftJcicicickfcMt'ickJc'frJcJc 


SMT 


1961 


c 




SMT 


1962 


c 


WRITE( 6 , 102) 


SMT 


1963 


102 


FORMAT (IX,' Y ',/) 


SMT 


1964 


c 


WRITE (6,100)(Y(I),I=1,8) 


SMT 


1965 


100 


FORMAT ( IX, 6F20. 10) 


SMT 


1966 


c 


WRITE( 6,101) 


SMT 


1967 


101 


FORMAT (IX, ' X ’ ,/) 


SMT 


1968 




DO 150 1=1,8 


SMT 


1969 


c 


WRITE (6,100)(X(I,J) ,J=1,7) 


SMT 


1970 


150 


CONTINUE 


SMT 


1971 


c 




SMT 


1972 


n ??????????????????????????????????????????????? 


SMT 


1973 


c 




SMT 


1974 


c 




SMT 


1975 


C **** BUILD XT ****** 


SMT 


1976 




DO 20 1=1, M 


SMT 


1977 




DO 10 J=1,N 


SMT 


1978 




XT( J , I)=X( I , J) 


SMT 


1979 


10 


CONTINUE 


SMT 


1980 


20 


CONTINUE 


SMT 


1981 


C 




SMT 


1982 


C **** XT * Y = XTY ******* 


SMT 


1983 


C 




SMT 


1984 




DO 50 1=1, N 


SMT 


1985 




SUM=0. 0D0 


SMT 


1986 




DO 40 J=1,M 


SMT 


1987 




SUM=SUM+(XT( I , J)*Y( J) ) 


SMT 


1988 


40 


CONTINUE 


SMT 


1989 




XTY( I )=SUM 


SMT 


1990 


50 


CONTINUE 


SMT 
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1991 




RETURN 


SMT 


1992 




END 


SMT 


1993 




SMT 


1994 




SUBROUTINE SORT ( Y,N) 


SMT 


1995 


c 


INPLACE SORT USING SHELL ALGORITHM ******** 


SMT 


1996 




REAL Y(N),TEMP 


SMT 


1997 




INTEGER GAP 


SMT 


1998 




LOGICAL EXCH 


SMT 


1999 


c 




SMT 


2000 




GAP=(N/2) 


SMT 


2001 


5 


IF (.NOT. (GAP. NE. 0)) GO TO 500 


SMT 


2002 


10 


CONTINUE 


SMT 


2003 




EXCH=. TRUE. 


SMT 


2004 




K=N-GAP 


SMT 


2005 




DO 200 1=1 ,K 


SMT 


2006 




KK=I+GAP 


SMT 


2007 




IF( . NOT. (Y( I). GT. Y(KK) ) ) GO TO 100 


SMT 


2008 




TEMP=Y( I) 


SMT 


2009 




Y( I)=Y(KK) 


SMT 


2010 




Y(KK)=TEMP 


SMT 


2011 




EXCH=. FALSE. 


SMT 


2012 


100 


CONTINUE 


SMT 


2013 


200 


CONTINUE 


SMT 


2014 




IF (. NOT. (EXCH)) GO TO 10 


SMT 


2015 




GAP=( GAP/ 2) 


SMT 


2016 




GO TO 5 


SMT 


2017 


500 


CONTINUE 


SMT 


2018 




RETURN 


SMT 


2019 




END 


SMT 



166 



LIST OF REFERENCES 



1. Lewis, P. A. W., and Orav, Endel J. Simulation Methodology for Statistician, Engi- 
neers, and Operations Analysts , Vol. 1, Brooks-Cole Publishers, Pacific Grove, CA, 
1988. 

2. Cramer, Harald, Mathematical Methods of Statistics, Princeton University Press, 
1946. 

3. Sanders, Mark S. and McCormick, Ernest J., Human Factors in Engineering and 
Design , McGraw-Hill, Inc., 1987. 

4. Drueg, Hans- Walter, SIMTBED a Graphical Test Bed for Analyzing and Reporting 
the Results of a Statistical Simulation Experiment, Master's Thesis, Naval Post- 
graduate School, Monterey, California, September, 19S3. 

5. Heidelberger, P. and Lewis, P.A.W., "Regression-Adjusted Estimates for Regener- 
ative Simulations, with Graphics", Communications of the ACM,x ol. 24, pp. 
260-273. 

6. Linnebur, D. G., A Graphical Testbed for Analyzing and Reporting the Results of a 
Simulation Experiment, Master's Thesis, Naval Postgraduate School, Monterey, 
CA, 1982. 

7. Lewis, P. A. W., Advanced Simulation and Statistics Package, Brooks-Cole Publish- 
ers, Pacific Grove, CA, 1985. 

8. Lewis, P.A.W., Serial Correlation, briefing material for presentation on serial cor- 
relation, 1986. 

9. Denby, Lorraine, and Martin, R. Douglas, "Robust Estimation of the First-Order 
Autoregressive Parameter", Journal of the American Statistical Association, vol. 74, 
pp. 140-146, March 1979. 



167 



10. Weisberg, Sanford, Applied Linear Regression, John Wiley & Sons, Inc., 1985. 

11. Beaton, Albert E. and Tukey, John W., "The Fitting of Power Series, Meaning 
Polynomials, Illustrated on Band-Spectroscopic Data," Technometrics, vol. 16, no. 
2, May 1974. 

12. Olkin, Ingram, Gleser, Leon J., and Derman, Cyrus, Probability Models and Appli- 
cations, Macmillian Publishing Co., Inc., 1980. 

13. Naval Postgraduate School Technical Report, l-Laplace Processes, by Lee S. 
Dewald, Sr., Peter A. W. Lewis, and Ed McKenzie, Monterey, CA, December 1985. 



168 



INITIAL DISTRIBUTION LIST 



No. Copies 

1. Defense Technical Information Center 2 

Cameron Station 

Alexandria, VA 22304-6145 

2. Library, Code 0142 2 

Naval Postgraduate School 

Monterey, CA 93943-5002 

3. Department of the Army 1 

U.S. Army Concepts Analysis Agency 

8120 Woodmont Ave. 

Bethesda, MD 20814-2797 

4. CPT Robert L. Youmans 1 

TRADOC Analysis Command 

White Sands Missile Range, NM 88002-5502 



169 



thesis 

Y63 



Youmans c0 lor in 

Tbe USe it analysis of 
t he outpu simulations = 
statistics esti ma- 

and analy^ s correla- 

tots of sex 



Thesis 

Y63 Youmans 

c.l Th* u-ie of color in 

the output analysis of 
statistical simulations, 
and analysis of estima- 
tors of serial correla- 
tion. 



